Remplacer des valeurs de cellules
Résolu
cgcg13
-
cgcg13 Messages postés 17 Date d'inscription Statut Membre Dernière intervention -
cgcg13 Messages postés 17 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Remplacer des valeurs de cellules
- Remplacant de coco - Accueil - Réseaux sociaux
- Remplacer disque dur par ssd - Guide
- Verrouiller des cellules excel - Guide
- Remplacer word - Guide
- Formule excel pour additionner plusieurs cellules - Guide
1 réponse
Bonjour,
Essaie cette macro
A+
Essaie cette macro
Sub 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+
cgcg13
Messages postés
17
Date d'inscription
Statut
Membre
Dernière intervention
C'est exactement ça !!! Merci beaucoup !!
