Bonjour,
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.EntireRow.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.
