code pour remplacer

Remplacer les valeurs de quelle lignes ? La 7 ?

J'opterais dans ce cas pour une boucle dans la boucle avec un par exemple.

Je remplis toujours la ligne 7.
La macro remplacera la ligne avec la même entête dans la base (lignes plus bas entre 10 et 600)

si par exemple dans la cellule(7,1) j'ai la valeur 150 : toute la ligne 7 remplacera la ligne i avec pour valeur en (i,1) 150.

Comment fonctionne la boucle dans la boucle.

Pas doué moi !

Merci

For i ..

  For j ..

  Next j

Next i

Tu parcours les lignes avec la boucle For i..
Je te proposais de parcourir les cellules d'une ligne avec For j.

Mais est-ce bien ce que tu veux ?

Merci, ça marche super !!

Heu non ...

la boucle ne s'arrête plus ...

je voudrais qu'il s'arrête sur la ligne i et change toute les valeurs a modifier sur cette ligne i ...

 

code ?

bonjour,
Voici le code :

For i = 16000 To 8 Step -1

Cells(i, 1) = Cells(7, 1).Value

   For j = 150 To 1 Step -1

   Cells(i, j) = Cells(7, j).Value

   Next j

Next i

J'ai écris : Cells(i, j).Value = Cells(7, j).Value

Ligne 2. Où est parti le IF THEN ?
Ligne 3. Tu peux le faire dans l'ordre, de 1 à 150 (pas important)
Ligne 4. Indentation stp (pas important)

Comme tu as oublié le IF ligne 2, il est en train de remplacer TOUTES LES LIGNES, de la 16000ème à la 8ème.

Les STEP -1 se justifient si tu supprimes des lignes ou des colonnes. Si tu ne fais que remplacer le contenu des cellules, remets-moi ça dans l'ordre normal

--> Essaye surtout de bien comprendre ce que tu fais. Exige de nous que nous soyons clairs. Mais pour ça, il faut aussi que la question le soit et donc que tu comprennes ce que tu fais.  

Trés bien l'explication !
Après plusieurs essais, je viens de faire çà :

For i = 8 To 600

  For j = 1 To 100

   If Cells(i, 1) = Cells(7, 1).Value Then Cells(i, j).Value = Cells(7, j).Value

  Next j

Next i

ça a l'air de bien marcher ! Qu'est-ce que tu en penses ?