Appliquer une macro sur toute une colonne

Bonjour

je souhaite pouvoir afficher plusieurs motifs dans une même cellule à partir d’une liste déroulante.

J’ai recopié une macro qui fonctionne pour la première cellule (A2) (voir fichier joint), par contre je voudrais pouvoir faire la même chose sur les cellules suivantes de ma colonne A3, A4, A5 ….etc.

Merci par avance pour votre

Pierre-Yves

Bonjour,

Essaie avec

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column = 1 And Target.Row > 1 Then
        Application.EnableEvents = False
        valsaisie = Target
        Application.Undo
        p = InStr(Target, valsaisie)
        If p > 0 Then
            Target = Left(Target, p - 1) & Mid(Target, p + Len(valsaisie) + 1)
            If Right(Target, 1) = Chr(10) Then
                Target = Left(Target, Len(Target) - 1)
            End If
        Else
            If Target = "" Then
                Target = valsaisie
            Else
                Target = Target & Chr(10) & valsaisie
            End If
        End If
        Application.EnableEvents = True
    End If
End Sub

A+

Bonjour,

Merci pour votre réponse

Par contre je n'arrive pas à selectionner plusieurs motifs sans une meme case

Cdt

Pierre Yves

Par contre je n'arrive pas à selectionner plusieurs motifs sans une meme case

Rien compris

A+

Désolé j'ai mal écris

En fait je voudrais afficher plusieurs motifs (Accord CPL, Accord Gate, Retour Client....etc.) dans une seule et même cellule et ce pour toute les cellules de ma colonne (A2, A3 ,A4, A5 ...etc.)

Merci pour votre aide

py

Il me semble que c'est ce que fait ta procédure

A+

Oui C'est parfait, c'est exactement ça

Peut être que j'avais mal recopié ton code précédent , en fait je suis complétement débutant sur les macros...

Merci bcp Frangy

Py

Bonjour Frangy

En fait ça marche bien dans le fichier que tu m'as renvoyé , par contre quand je copie colle ton code pour la macro dans un autre fichier excel ça ne fonctionne plus , il y a t il des choses à faire pour que la macro fonctionne aussi dans un autre fichier excell ?

Py

Bonjour,

Si tu as bien copié le code dans le module de la feuille concernée, il ne devrait pas y avoir de problème.

A+

En fait quand j'ai copié le code sur un autre tableau, le numéro de la colonne n'était plus la 1 mais la colonne 29 et en modifiant ce numéro dans le code ça fonctionne. Par contre si on souhaite que la macro marche pour toutes les colonnes du tableau peut on modifier le code en conséquence ?

Merci beaucoup

Bon WE

Py

Bonjour,

Le choix de la plage concernée est effectué par la ligne de code suivante :

If Target.Column = 1 And Target.Row > 1 Then

qui se traduit par : "si le numéro de colonne de la cellule modifiée est égal à 1 et si le numéro de ligne de la cellule modifiée est supérieur à 1 alors ..."

Pour que toutes les colonnes soient prises en compte, il suffit de coder

If Target.Row > 1 Then

A+

Bonjour,

En fait j'aurai une dernière question par rapport à cette macro :

Lorsque je sélectionne plusieurs motifs dans une cellule je voudrais que la hauteur de la ligne s'ajuste automatiquement en fonction du contenu de la cellule pour que tout puisse apparaitre à l'écran sans à avoir à étirer manuellement la ligne pour faire tout apparaitre.

Est-ce possible ?

Cdt.

Py

Bonjour,

Voici un lien qui pourra t'aider

http://support.microsoft.com/kb/149663/fr

A+

Ok Merci

A+