Affecter une valeur sur toute une ligne d'un tableau VNA

[downloads]

Bonjour a tous !

J'ai un tableau qui va des colonnes B à AF et je voudrais affecter la valeur "8" toutes les 3 lignes à partir de la ligne 6.
Mes lignes vont augmenter et je ne sais pas combien il y en aura a la fin.

J'ai essayé sous VBA :

Private sub Ajout()
dim i as integer
For i=6 to 700
Range("B&i:AF&i).Value = 8
i=i+3
Next i
End sub

Mais ca ne marche pas. Pourriez vous m'aider à déterminer mon pb??? J'ai joint un fichier parce que je ne sais pas si je suis assez claire.

Merci d'avance !

 

[CMoa]

Re : Affecter une valeur sur toute une ligne d'un tableau VNA

Bonjour downloads
Pourqoui pas par formule?

=SI(G5<>"";"8";"")

Bonne journée

 

[downloads]

Re : Affecter une valeur sur toute une ligne d'un tableau VNA

Merci pour l'aide
J'ai essayé par formule mais ca ne marche pas parce que je voudrais affecter ca à tout mon tableau et je ne sais pas combien de ligne il aura. Je sais juste que toutes les trois lignes il faut affecter la valeur 8 si la case au dessus est remplie.

Une idée ? Moi je n'y arrive vraiment pas

 

[Efgé]

Re : Affecter une valeur sur toute une ligne d'un tableau VNA

Bonjour downloads, CMoa,
Une proposition:

Sub Ajout()
Dim i As Integer
For i = 6 To Range("B" & Application.Rows.Count).End(xlUp).Row + 2 Step 3
    For j = 2 To 31
        If Cells(i - 1, j) <> "" Then Cells(i, j).Value = 8
    Next j
Next i
End Sub

La macro rempli les case de la feuille active.
Cordialement

 

[Efgé]

Re : Affecter une valeur sur toute une ligne d'un tableau VNA

Désolé, je ne peux toujours pas éditer mes messages, il faut supprimer

Dim i As Integer

qui ne sert pas à grand chose et qui risque en plus de poser problème pour un très grand nombre de lignes.
Cordialement

 

[downloads]

Re : Affecter une valeur sur toute une ligne d'un tableau VNA

Merci bcp !!!!!

 

[downloads]

Re : Affecter une valeur sur toute une ligne d'un tableau VNA

J'ai essayé la formule et elle ne marche que sur la premiere ligne.

Si je marque des choses sur les lignes d'apres la valeur 8 ne s'affiche pas.
Pourriez vous m'aider ? J'essai de trouver la solution depuis le debut de l'aprem et la je ne sors pas de ce casse tete !

Merci d'avance

 

[Efgé]

Re : Affecter une valeur sur toute une ligne d'un tableau VNA

Re
Exact, re-désolé 😱:
Changer

For i = 6 To Range("B" & Application.Rows.Count).End(xlUp).Row + 2 Step 3

par

For i = 6 To Range("A" & Application.Rows.Count).End(xlUp).Row + 2 Step 3

Cordialement

 

[downloads]

Re : Affecter une valeur sur toute une ligne d'un tableau VNA

Merci bien !