boucle For pour lire cellule?

[adinnn]

Bonjour,

WOW ça bouge sur ce forum!

Voilà ma question:

J'ai une feuille "facture de service" et j'aimerais par macro lire les valeurs des cellules a18-a53 à chanque changement de selection. Puis-je utiliser une boucle for?
Donc si la valeur "01" se retrouve dans l'une des cell, j'ajoute à B18 et D18 et contenu de la cell H3 feuille "clients"

Dim cells As Range
If Range("B11") = "TEXT1" Or Range("B11") = "TEXT2" Then
For Each cells In Sheets("facture de service").Range("a18:a53" & Sheets("facture de service").Range("A65536").End(xlUp).Row)
 If Sheets("facture de service").Range(cells).Value = "01" Then
  Range("D18") = Sheets("Clients").Range("H3")

Merci

 

[wilfried_85]

Re : boucle For pour lire cellule?

Bonjour

reponse OUI

Par contre évite d'utiliser des mots cles comme nom de variable INTERDIT : cells est un mot cle : ma_cel ira beaucoup mieux

 

[adinnn]

Re : boucle For pour lire cellule?

Bonjour,

j'ai fait ce que tu as dit mais ça ne compile pas à la ligne:

If Sheets("facture de service").Range(cells).Value = "01" Then

Dans le fond je veux lire chaque cell de a18-a53 et valider si elles contiennent "01"

Des idées du pourquoi de la chose? 😉

 

[wilfried_85]

Re : boucle For pour lire cellule?

re:

Dim ma_cel As Range

cette ligne indique que ma_cel est un objet range don faire : Range(Range) ne peut convenir

If ma_cel.value = "01" then

est sufisant

 

[adinnn]

Re : boucle For pour lire cellule?

Ok, assez simple ouais! Merci

Par contre, si par exemple la valeur en A25 est = à "01", comment faire pour écrire une valeur dans la cellule juste à côté(B25) et l'autre en D25? et ainsi de suite...

 

[Gorfael]

Re : boucle For pour lire cellule?

Salut adinnn et le forum
Petite rermarque :

Dim cells As Range

Excel utilise un certain nombre de termes. Les utiliser autrement que ce à quoi Excel les destine est souvent source de problèmes : Cells : la collection des cellules d'une feuille. pas besoin de la redéfinir.

la valeur en A25 est = à "01", comment faire pour écrire une valeur dans la cellule juste à côté(B25) et l'autre en D25? et ainsi de suite...

J'aime bien les termes vagues, ça évite de répondre précisément. range("A25").offset(0,1") signifie : la cellule à une colonne à droite et 0 ligne de la cellule A25 etc...
A+

 

[adinnn]

Re : boucle For pour lire cellule?

En fait,

puis-je lire la référence de la cellule (ex. B23 ou B34) dans laquelle j'ai mis une valeur quelquonque(1-2-3-ou 233 etc..) et ensuite aller écrire dans la cellule juste à côté avec :

.Range(ma_cel).Offset(0, 1)

?

Quel est la formule qui renvoie la référence de la cell?