Remplacer des valeurs de cellules
Résolu
cgcg13
-
cgcg13 Messages postés 18 Statut Membre -
cgcg13 Messages postés 18 Statut Membre -
Bonjour,
J'ai un tableau comportant des noms dans la 1e colonne A2 à A150
Le reste des colonnes/lignes comporte soit 1, soit X, soit rien.
Je voudrais que tous les "1" soient remplacés par le nom correspondant en début de ligne
Ex :
A2= Toto -> tous les "1" de la ligne 2 (B2 à AZ2) seront remplacés par Toto
A3= Paul -> tous les "1" de la ligne 3 (B3 à AZ3) seront remplacés par Paul
....
Pouvez-vous m'aider ??
Merci par avance
CG
J'ai un tableau comportant des noms dans la 1e colonne A2 à A150
Le reste des colonnes/lignes comporte soit 1, soit X, soit rien.
Je voudrais que tous les "1" soient remplacés par le nom correspondant en début de ligne
Ex :
A2= Toto -> tous les "1" de la ligne 2 (B2 à AZ2) seront remplacés par Toto
A3= Paul -> tous les "1" de la ligne 3 (B3 à AZ3) seront remplacés par Paul
....
Pouvez-vous m'aider ??
Merci par avance
CG
1 réponse
-
Bonjour,
Essaie cette macroSub Test()
Dim DerLig As Long, Ligne As Long
Dim Col As Integer
With Worksheets("Feuil1") 'Nom de feuille à adapter
DerLig = .Range("A" & Rows.Count).End(xlUp).Row
For Ligne = 2 To DerLig
For Col = 2 To 52
If .Cells(Ligne, Col).Value = 1 Then .Cells(Ligne, Col).Value = .Cells(Ligne, 1).Value
Next Col
Next Ligne
End With
End Sub
A+
