Actualité informatique
Test comparatif matériel informatique
Jeux vidéo
Astuces informatique
Vidéo
Télécharger
Services en ligne
Forum informatique
01Business



|||-  

erreur 1004 vba excel

 

2 utilisateurs anonymes et 51 utilisateurs inconnus
Ajouter une réponse
 

 
Page photos
 
     
Vider la liste des messages à citer
 
 Page :
1
Auteur
 Sujet :

erreur 1004 vba excel

Prévenir les modérateurs en cas d'abus 
darthmoa
darthmoa
  1. Posté le 04/02/2010 à 17:11:21  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
bon voila j'ai fait une macro et je dois sélectionner une cellule pour contrôler si elle vide où non.

 j'utilise cette commande : Range(Cells(10, 2)).Select => là ça bug
 quand j'utilise : Range("J2" ).Select => là ça passe  :(
 je peux pas utiliser la seconde méthode par ce que je souhaite l'introduire dans une boucle for.

 voici tout le code

 



Private Sub transfert_Click()

Dim i, j As Double

Dim f, g As Double

Dim leer As Boolean


 '======================= suchen die daten - recherche des données =======================

'control dass es ein datei gibt - contôle de présence de fichier

If classeur1 = vide Then Exit Sub

If classeur2 = vide Then Exit Sub

'öffnen der Datei .csv - ouverture du fichier .csv

Workbooks.Open Filename:=classeur1

'Kopieren die daten von der datei .csv - copier les données du fichier .csv

Cells.Select

Selection.Copy

'öffnen der Datei .xls - ouverture du fichier .xls

NameFichier = ActiveWorkbook.Name

Workbooks.Open Filename:=classeur2

'einfügen die daten in der datei .xls - coller les données dans le fichier .xls

Cells.Select

ActiveSheet.Paste

'schliessen die datei .csv - fermer le fichier.csv

Workbooks(NameFichier).Close

'konvertieren den string -> Koolonne - convertir les chaînes de caractère -> colonne

Columns("A:A" ).Select

Selection.TextToColumns Destination:=Range("A1" ), DataType:=xlDelimited, Semicolon:=True


 '====================== Datenverarbeitung - traitement des données ======================

'Definit le nbr de ligne et de colonne de la liste

f = ActiveSheet.UsedRange.Columns.​Count

g = ActiveSheet.UsedRange.EntireRo​w.Count

'leer = 1

'For i = 2 To 256

'    link_xls.Text = i

'    If Cells(10, 2) <> 0 Then

'    leer = leer + 1

'    link_csv.Text = leer

'    End If

'Next

'If leer = 0 Then

Range(Cells(10, 2)).Select

'Range("J2" ).Select

If Selection = "" Then

Columns(10).Select

Selection.Delete

End If
 End Sub




 ps : j'en ai besoin pour un projet au boulot et j'utilise excel 2000, mais il bug aussi chez moi avec excel 2003.

 En espérant que vous pourrez m'aider.

darthmoa
  1. Posté le 05/02/2010 à 16:41:58  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
J'ai trouvé la réponse à ce problème, mais j'en ai un autre simmilaire
 j'essye de renomer un onglet et j'ai une erreur.

 voici le code
 



Sub Tri()

classeur2 = Application.GetOpenFilename("*​.xls,*.xls" )

'ActiveSheets.Name = zeitergeleitet

'Worksheets.Name = zeitergeleitet

'Sheets(1).Name = zeitergeleitet

'Workbooks(classeur2).Save

'Workbooks(classeur2).Close
 End Sub




 je vous remercie de votre aide

(Publicité)
willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 06/03/2010 à 22:45:08  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
guten tag

 Range(Cells(10, 2)).Select  devrait fonctionner

 soit Range("J2" ).select
 soit Cells(ligne,colonne).select
 soit  Range(cells(i,j),cells(i1,j1))​.select
 :hello:

Ancienne modo
  1. homepage
zplay
Tu cartonnes ! (de 500 à 999 messages postés)
  1. Posté le 19/04/2010 à 22:07:43  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Salut

 Cells(x,y) ça renvoi un type range, ce qui revient au même que d'utilise range(Cells(x,y)).

 Ca devrait donc marcher sans le range()

 Page :
1

Aller à :
 

Sujets relatifs
Erreur setsockopt (IP_HDRINCL) SQL erreur : 1064 avec probleme de contrainte reférencielle
Macro Excel chercher un mot dans une variable erreur sql dans un formulaire à la saisie de '
Plus de sujets relatifs à : erreur 1004 vba excel

Les 5 sujets de discussion précédents Nombre de réponses Dernier message
j'ai besoin d'un as du crack 0
Suppresion de processus apres un temps défini 1
Creation template joomla 3
Recherche script pour valider formulaire en cliquant sur pub 1
dupliquer des pages avec web creator pro 4 0