ajout colonnes sous conditions

je me bloque sur une macro pour ajouter deux colonnes dans onglet "base" si je trouve que colone "field name" = "en tète" ma "Base".

Cliquez pour agrandir...

Robert à dit:

Bonjour Amirall, bonjour le forum,

Ha voilà ! comme ça c'est clair...
Essaie avec ce code :

VB:

Sub ThauTheme()
Dim OF As Worksheet 'déclare la variable OF (Onglet Field name)
Dim OB As Worksheet 'déclare la variable OB (Onglet Base)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim I As Integer 'déclare la variable I (Incrément)
Dim R As Range 'décalre la variable R (Recherche)

Set OF = Worksheets("field name") 'définit l'onglet OF
Set OB = Worksheets("base") 'définit l'onglet OB
DL = OF.Cells(Application.Rows.Count, "A").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne A de l'onglet OF
For I = 2 To DL 'boucle des lignes 2 à DL
    'définit la recherche R (recherche dans la ligne 1 de l'onglet OB la valeur entière de la cellule de la boucle
    Set R = OB.Rows(1).Find(OF.Cells(I, 1).Value, , xlValues, xlWhole)
    If Not R Is Nothing Then 'condition : s'il existe au moins une occurrence trouvée
        OB.Columns(R.Column + 1).Insert 'insère une colonne avant la colonne de la première occurence trouvée plus une
        OB.Columns(R.Column + 1).Insert 'insère une colonne avant la colonne de la première occurence trouvée plus une
    End If 'fin de la condition
Next I 'prochaine ligne de la boucle
End Sub

Cliquez pour agrandir...