VBA Faire varier la colonne de destination d'un copier / coller

Question

Je suis bloquée sur ma macro. J'ai 107 colonnes dans ce tableau situé en Feuil 1 LANGUESETINTERPRETES Sur cette feuille, j'ai un formulaire. EN A18 et B18 il y a des menus déroulants qui me permettent de sélectionner une personne et une langue. En cliquant sur un bouton, j'aimerais que le nom s'enregistre dans une des colonnes de la Feuil1 LANGUESINTERPRETES. Instruction pour la destination : la colonne est celle dont l'en-tête porte le même nom que la langue sélectionnée dans la Feuil10 FORMULAIRE en B18. Pour l'instant j'en suis là dans le code mais je ne sais pas comment indiquer la colonne que je désire. Sub TestEnregistrerLangue() ' Macro7 Macro Dim col As Byte Feuil1.Unprotect 'feuille LANGUESINTERPRETES With Feuil1.ListObjects("Tableau1") 'feuille LANGUESINTERPRETES If .ListRows.Count = 0 Then .ListRows.Add: lig = 1 'Else: .ListRows.Add: lig = .ListRows.Count 'insérer à la dernière ligne Else: .ListRows.Add Position:=1: lig = 1 'insérer a la 1igne 1 End If For col = 'Colonne dont l'en-tete = TEXTE SITUÉ EN "B18" dans la Feuil10 FORMULAIRE End With Je ne sais pas si cette manip est réalisable et pour l'instant j'ai bidouillé un truc avec des formules, mais je sais qu'à la longue ça va être lourd.... Alors merci pour vos idées ...

Ausecour · Accepted Answer

Dans ce cas je pense à une solution comme celle-ci:

Sub TestEnregistrerLangue()
Dim col As Integer, lig As Integer

With Feuil1 'feuille LANGUESINTERPRETES
    .Unprotect

    'recherche position d'export
    On Error Resume Next 'en cas d'erreur ligne suivante
    col = .Range("A1:DC1").Find(Range("B18")).Column 'range("B18") dans feuille active à savoir celle du formulaire
    On Error GoTo 0 'on remet le paramètre par défaut pour les erreurs

    If col = 0 Then
        MsgBox "La langue " & Range("B18") & " n'a pas été trouvée.", vbInformation, "Langue non trouvée"
        Exit Sub
    End If

    If .Cells(2, col) = "" Then
        lig = 2
    Else
        lig = .Cells(1, col).End(xlDown).Row + 1
    End If

    'export
    .Cells(lig, col) = Range("A18")
End With
End Sub

Je n'ai pas pu la tester donc j'espère qu'il n'y aura pas de bug...

X Cellus · Answer

Bonjour Cynthia75 , Pas besoin de boucle. Utiliser Find dans le code. Langue = "ARABE" Col = Range("A1:DC1").Find(Langue).Column...

Ausecour · Answer

Pourquoi faire un tableau aussi large avec 1 colonne par langue, au lieu de faire une colonne "Langue" et mettre "ARABE" à l'intérieur? Il faut de préférence éviter de mettre ce genre d'information sur autant de colonne, quelle est l'utilité de ce tableau à la fin? Pour compter le nombre d’interprètes qui parlent l'ARABE un NB.SI me semble suffire, pour afficher tous les interprètes qui parlent ARABE un filtre. S'ils parlent plusieurs langues: Un tableau avec les informations de l'interprète, un tableau avec une ligne par langue, le nom de l'interprète, la langue parlée...

Ausecour · Answer

Mon code fonctionne bien, le problème c'est que: Le bouton appelle la macro EnregistrerLangue et non TestEnregistrerLangue, j'ai donc dû faire un clic droit dessus, affecter la macro... sélectionner le bon nom. Ensuite aller dans la feuille où l'enregistrement se fait pour afficher la seconde ligne qui est masquée, afin qu'on voit la saisie se faire...

Ausecour · Answer

Content que ça convienne! Merci d'avoir passé le sujet en résolu...

Ausecour · Answer

Cette histoire de ligne qui se colle en dehors du tableau est bizarre... j'ai remis le tableau sous forme de tableau et ai essayé ma macro, et le tableau se redimensionne bien si besoin. J'ai d'ailleurs noté que la liste des langues était incomplète, "Allemand" en est absent par exemple. Est-ce que tu rencontres toujours le problème de ton côté avec cette version du fichier...