Range(VarCol & VarLigne).Select

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 :ptdr:. => Range(VarCol & VarLigne).Select.

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

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:

---

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

---

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

Code:

---

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

---

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

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

Code:

---

Cells(VarLigne,VarCol )

---

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

Bonjour,
Une autre façon de parcourir une plage

Code:

---

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

Citation:

---

Envoyé par casefayere

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

Code:

---

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 !