Remplacer des valeurs de cellules

Résolu/Fermé

cgcg13 - 23 sept. 2015 à 09:12
cgcg13 Messages postés 17 Date d'inscription lundi 18 septembre 2006 Statut Membre Dernière intervention 15 mars 2017 - 23 sept. 2015 à 10:09

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

A voir également:

1 réponse

Réponse 1 / 1

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
23 sept. 2015 à 09:49

Bonjour,

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 lundi 18 septembre 2006 Statut Membre Dernière intervention 15 mars 2017
23 sept. 2015 à 10:09

C'est exactement ça !!! Merci beaucoup !!

Discussions similaires

Impossible fusionner cellules

Cellules en surbrillance selon une TextBox

Remplacement du zero par une cellule vide !?

Discussions similaires

Newsletters