Discussion :

[Zym01]

Bonjour,

J'ai besoin d'un petit coup de pouce en VBA sur un point sur lequel je bloque.

Je voudrais rechercher dans la ligne 1 la cellule contenant le nom d'une personne (E1, F1, G1....) correspondant à un menu déroulant de la cellule D3 d'une autre feuille (donc le nom n'est pas toujours le même), sélectionner toute la colonne correspondante, la couper et l'insérer en colonne E.

En fait, mes autres feuilles comprennent des macros allant copier les données saisies sur la colonne E en question.

Je voulais donc déplacer la colonne correspondant à la personne chaque fois que l'on met à jour des données la concernant.

J'espère avoir été clair et vous remercie d'avance de votre aide !

[mercatog]

Bonjour et bienvenue
Reformule ta question avec des phrases concises et claire afin que ceux qui te lisent comprennent ta difficulté.
Tu consens que seul toi connait ton fichier et ton problème.

[Zym01]

J'ai parfois du mal à me comprendre moi-même !!!!!

Je vais tacher de simplifier tout sur la même feuille de calcul :

Je souhaite rechercher dans une ligne (E1:FZ1) le nom d'une personne saisie dans la cellule A1.
Puis sélectionner toute la colonne correspondant à la cellule trouvée par cette recherche.
Puis couper cette colonne.
Et enfin l'insérer au niveau de la colonne E.

Le tout automatisé.....
C'est plus clair ?

[mercatog]

C'est lus compréhensible ainsi.
dans l'éditeur vba, double clique sur ton onglet et insère ce code (évènement Change)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
 
If Target.Address = "$A$1" Then
    If Target.Value <> "" Then
        Application.ScreenUpdating = False
        Set c = Range("F1:FZ1").Find(Target.Value, lookat:=xlWhole)
        If Not c Is Nothing Then
            Application.EnableEvents = False
            Columns(c.Column).Cut
            Range("E:E").Insert
            Application.EnableEvents = True
            Set c = Nothing
        End If
    End If
End If
End Sub