Discussion :

[Babaorum11]

Bonjour,
J'ai un tableau Excel et je cherche une "macro".
Le tableau a +/- 160 colonnes et 2000 rangées.
Je souhaite que les valeurs de la colonne "L" (des nombres de 1 à20) se transforment automatiquement en lettre "A" dans les colonnes "AD:FI" dès qu'elles ont la même valeur;
C'est à dire quand L16=5 , tous les "5" des colonnes "AD:FI" deviennent "A" automatiquement.
De la même façon toutes les valeurs de la colonne "M" deviennent"B" et les valeurs de la colonne "N" deviennent "C3.
Je vous joins un morceau de tableau pour plus de compréhension.
Je vous remercie de votre réponse
Babaorum 11

[umfred]

sauf erreur, si je traduit ta demande, l'algo recherché serait de ce genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
pour ligne = 16 à dernière_ligne
   pour colonne = "AD" à dernière colonne
       si cellule(ligne, "L").value = cellule(ligne,colonne).value alors cellule(ligne,colonne).value = cellule(1,"L")
       si cellule(ligne, "M").value = cellule(ligne,colonne).value alors cellule(ligne,colonne).value = cellule(1,"M")
       si cellule(ligne, "N").value = cellule(ligne,colonne).value alors cellule(ligne,colonne).value = cellule(1,"N")

Reste à transformer ça en code si ça répond à la demande

[Babaorum11]

Bonjour,
Je ne comprends pas tout de ton explication. Je souhaite que
si cellule(ligne, "L").value = cellule(ligne,colonne).value alors cellule(ligne,colonne).value = cellule(1,"L") devienne "A" dans la ligne
si cellule(ligne, "M").value = cellule(ligne,colonne).value alors cellule(ligne,colonne).value = cellule(1,"M") devienne "B" dans la ligne
si cellule(ligne, "N").value = cellule(ligne,colonne).value alors cellule(ligne,colonne).value = cellule(1,"N") devienne "C" dans la ligne

de façon à ne plus avoir à le changer manuellement.
Sinon je pense que ça y ressemble

[umfred]

cellule(1,"L") fait référence dans mon algo à la cellule "L1" qui contient "A", de même que la cellule M1 contient B et C1 contient C (plutôt que mettre la valeur en dur, j'utilise la valeur de la cellule de "référence")

[Babaorum11]

Re bonjour,

Alors, ça semble être ce que je recherche.
En fait il n'y a pas de mise en forme en excel qui me permette d'y arriver donc je me tourne vers VBA mais je n'y connais rien et avant que j'aie appris à l'utiliser de l'eau aura coulé sous les ponts. Si j'y arrive ( parce qu'à mon âge...); donc je me tourne vers les spécialistes;
Merci si tu peux me concocter ça.
En fait je viens de voir ton mail dans ma boite , l'Hébreu à l'air plus facile.....

[Franc]

Salut, testé et fonctionne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub ChangeValues()
    Dim i As Long
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, "L").End(xlUp).Row
    For i = 16 To lastRow
        Range("AD" & i & ":FI" & i).Replace What:=Cells(i, "L").Value, Replacement:=Cells(1, "L").Value, LookAt:=xlWhole
        Range("AD" & i & ":FI" & i).Replace What:=Cells(i, "M").Value, Replacement:=Cells(1, "M").Value, LookAt:=xlWhole
        Range("AD" & i & ":FI" & i).Replace What:=Cells(i, "N").Value, Replacement:=Cells(1, "N").Value, LookAt:=xlWhole
    Next i
 
    MsgBox "Traitement terminé !"
 
End Sub