Prog VBA remplacer "1" par valeur en colonne A

Bonjour

Je me lance dans le VBA, je fais beaucoup de Excel et je pense qu'automatiser certaines choses me feront un gagner un temps fou.

Il faut bien commencer par qqchose ..

L'autre jour j'avais un énorme tableau, colonne A : informations à coller dans les colonnes ou il y a des "1".

Exemple en A1 : Code1 en B1 / G1 / T1 : 1

Donc j'ai tout fait à la main mais c'est bête ... il y avait plus de 50 lignes

Donc je m'amuse à essayer de faire un code dans VBA pour celà voilà à quoi celà ressemble :

Quand je fais le mode pas à pas : aucun problème je vois bien que la variable x(1,i) se modifie lors qu'il y a un 1 il change la valeur en "A" mais quand j'execute la macro il ne se passe rien.

Donc je pense qu'il change bien la valeur MAIS il ne l'écrit pas dans les cellules ... en gros il mémorise l'information mais il n'en fait rien et je suis bloqué ici :)

Pourriez vous m'aider SVP ?

Sub macro2()

Dim x As Variant
Dim i As Integer

x = Worksheets("Feuil1").Range("A1:G1").Value

For i = 2 To 7
If x(1, i) = 1 Then
x(1, i) = x(1, 1)

End If
Next

End Sub

Bonjour

Un fichier est TOUJOURS le bienvenu....

Sub macro2()
  Dim x As long, i As Integer
 with sheets("Feuil1")
   for x=2 to .range("A"&rows.count).end(xlup).row
     For i = 2 To 7
       If .cells(x,i).value = 1 Then .cells(x,i).value=.cells(1,1).value
    Next
 next
end with
End Sub

A+ François

Bonjour François

merci beaucoup

Je vais essayer de comprendre ta proposition :)

Merci merci