Discussion :

[eric_1000]

Bonjour

J'ai un tableau avec un contenu (A1:F30)
Je souhaite écrire une boucle qui va lire le contenu de chaque cellules une à une.
Si le contenu est valable selon un critère, je le recopie dans une autre feuille.

Mon problème est que je ne sais pas comment mettre les lettres des colonnes en variable . => Range(VarCol & VarLigne).Select.

Merci pour votre aide & Bonne année !!!!

[SfJ5Rpw8]

Bonjour,

utilise Cells ... et tu n'oublie pas de préciser la feuille concernée ... pas besoin de select aussi

par exemple pour écrire en A2 feuille1 du classeur contenant ton code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkBook.WorkSheets("Feuille1").Cells(2,1) = "ICI"

[casefayere]

Bonjour Bbil,eric,
excuses-moi, Bbil, j'avais préparé
Un test à adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub laboucle()
Dim cel As Range, Plg As Range
Set Plg = Range("A1:F30")
For Each cel In Plg
  If cel = "toto" Then MsgBox "Vrai / " & cel.Address
Next cel
End Sub

[eric_1000]

Merci casefayere,

Ça marche mais je souhaite utiliser une variable pour remplacer le A,B,C.... car dans ma boucle je dois incorporer des conditions de sauts de boucle et recopier plusieurs cellules

Merci pour ton aide

[casefayere]

Alors avec la réponse de Bbil, tu devrais pouvoir adapter, passer par "Cells" au lieu de "Range", sachant que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(VarLigne,VarCol )

on donne déjà la ligne et 2ème chiffre la colonne, varligne et varcol étant des "Integer" ou des "Long"

[Philippe Tulliez]

Bonjour,
Une autre façon de parcourir une plage

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Read()
 Dim c As Range
 For Each c In ThisWorkbook.Worksheets("Feuil1").Range("A1:F10")
  With c
   Debug.Print .Address & " - " & .Value
  End With
 Next
End Sub

[EDIT]
S'il s'agit de recopier toutes les lignes de la liste de données répondant à des critères, je ne peux que te conseiller l'utilisation du filtre avancé d'excel.
En VBA, c'est une ligne d'instruction après avoir défini les zones de données, de critères et d'exportation

[eric_1000]

Alors avec la réponse de Bbil, tu devrais pouvoir adapter, passer par "Cells" au lieu de "Range", sachant que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(VarLigne,VarCol )

on donne déjà la ligne et 2ème chiffre la colonne, varligne et varcol étant des "Integer" ou des "Long"

Ok... Super... Merci !