XL 2013 [RESOLU] Valeur Textbox / combobox transposer sur cellules à la suite

  • Initiateur de la discussion Initiateur de la discussion BENAM69
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

BENAM69

XLDnaute Occasionnel
Bonsoir à tous,

Cela fait 1 heure ou plus que je suis bloqué pour un truc aussi facile pour vous.

J'ai essayé avec cela :
VB:
Private Sub CommandButton1_Click()
    Dim DerLig As Long
    
    DerLig = Worksheets("Feuil1").Range("I" & Rows.Count).End(xlUp).Row + 1
    
    Worksheets("Feuil1").Range("I" & DerLig).Value = TextBox1
    Worksheets("Feuil1").Range("J" & DerLig).Value = TextBox2
 Worksheets("Feuil1").Range("K" & DerLig).Value = TextBox3
 Worksheets("Feuil1").Range("L" & DerLig).Value = Combobox1

    
End Sub

Cela fonctionne mais je ne sais pas comment démarrer le collage en I11.
Il me faut juste ajouter une variable qui me permet de coller les valeurs à partir de la cellule de démarrage I11.

Merci pour votre aide,
En Pj le fichier pour tester
Benam
 

Pièces jointes

Bonjour
Tu ajoute simplement après: DerLig = Worksheets("Feuil1").Range("I" & Rows.Count).End(xlUp).Row + 1
If DerLig < 11 Then DerLig = 11
A+ François

Bonjour François

Merci pour cette ligne qui complète mon code.
Je savais que c'était qu'une ligne à mettre, je suis dégoûté d'avoir passé autant de temps dessus.

En tout cas merci encore pour ton aide

A+

Benam
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
665
Réponses
6
Affichages
605
Réponses
3
Affichages
898
Réponses
2
Affichages
611
Retour