Liste de noms

Bonjour,

Pour mon application, j’aurais besoin d’une liste de nom qui dans mon tableau Excel devront se trouver dans les cellules C3, G3, K3, O3… et cela pour 10 noms.

Depuis plusieurs jours, j’ai essayé d’adapter la macro du fichier Ajout Contact qui se trouve dans le classeur Fichiers du cours VBA (voir fichier joint) sans grand succès.

Qui peut m’aider ??

Merci

Bonjour

Une solution

Remplaces la macro actuelle par celle-ci

Private Sub CommandButton_Ajouter_Click()
Dim Colonne As Integer

  If Trim(Me.TextBox_Nom) = "" Then
    MsgBox "Veuillez inscrire un nom"
    Exit Sub
  End If

  Colonne = Cells(3, Columns.Count).End(xlToLeft).Column
  If Colonne < 3 Then
    Colonne = 3
  Else
    Colonne = Colonne + 4
  End If
  If Colonne = 43 Then
    MsgBox "Liste complète"
    Exit Sub
  End If

  Cells(3, Colonne) = Me.TextBox_Nom
End Sub

Merci, c'est ce que je cherchais.