Remplissage conditionnel Résolu

Question

Bonjour, 

J'aurais besoin d'aide pour du "remplissage conditionnel"

je remplis un tableau au long cours (1250 lignes aujourd'hui)

la colonne A  correspond à un nom avec des noms qui reviennent périodiquement  le long des lignes.

Ce que je souhaite obtenir : c'est plus clair avec un exemple directement,

Quand je remplis la  case "A1250" avec un nom identique à celui de la case  "A500 " je voudrais que le texte dans la case "M500" se copie automatiquement dans la case "M1250"

merci pour  votre aide

colonne A : des noms, des noms....
colonne M : du texte


Configuration: Windows 7 / Chrome 42.0.2311.90

via55 · Answer

Bonjour

Une possibilité par macro à mettre dans le worksheet de la feuille concernée (ALT+F11 pour ouvrir l'éditeur VBA, double clic sur la feuille dans l'arborescence à gauche, copier-coller la macro dans la page blanche puis fermer l'éditeur)
 Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
For x = 1 To Target.Row - 1
If Range("A" & x) = Target.Value Then Range("M" & Target.Row) = Range("M" & x)
Next
End If
End Sub

Cdlmnt
Via

ccm81 · Answer

Bonjour

Avec ce que j'ai compris

Je suppose que tous les noms identiques en colonne A auront le même texte en colonne M

1° formule à mettre en colonne M (je l'ai mise en ligne 11)
à tirer vers le bas (assez loin après ta dernière ligne remplie)
=SI(ESTNA(RECHERCHEV($A11;$A$2:$M10;;0));"";RECHERCHEV($A11;$A$2:$M10;13;0))

Lorsque tu vas remplir ta colonne A, deux cas
1. Le nom existe plus haut et en colonne M tu vas récupérer la valeur correspondante
2. Le nom n'existe pas et tu va remplir à la main la colonne M, ce qui aura pour effet de supprimer la formule ( d'où le "assez loin"  )

Cdlmnt

ccm81 · Answer

La colonne O est la colonne 15
La formule écrite en O14
=SI(ESTNA(RECHERCHEV($A14;$A$2:$O13;;0));"";RECHERCHEV($A14;$A$2:$O13;15;0))

Cdlmnt

Remplissage conditionnel

3 réponses

Discussions similaires

Newsletters