inserrer des valeurs de textbox, label et combobox sur une seul et même ligne

  • Initiateur de la discussion Initiateur de la discussion BEUBZIR
  • 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 !

BEUBZIR

XLDnaute Nouveau
Bonjour la communauté,
Je me permet de vous solliciter pour le problème suivant :
Je cherche à renvoyer des valeurs et des textes qui se trouvent dans des Textbox, Label et Combobox sur la dernière ligne vierge de mon tableau Excel.
J'ai trouvé une formule qui me trouve la dernière ligne vide, mais mon soucis est que je dois inscrire toutes les informations que j'ai saisi sur la même ligne.
Hors, il peut arriver que certaine lignes comportent des cellules vides, et donc quand je valide l'étape suivante, les informations se décalent.
Bref, mieux vaut un bel exemple qu'un long discours... Ci joint mon tableau avec la formule trouvée qui ne me satisfait qu'a moitié.

Merci d'avance pour votre (ton) aide...
 

Pièces jointes

Re : inserrer des valeurs de textbox, label et combobox sur une seul et même ligne

Bon bin à force de chercher on fini par trouver.
j'ai adapté comme j'ai pu une formule et celle à l'air de fonctionner...

Private Sub CommandButton2_Click()
Dim DLig As Long
With Sheets("feuille métré")
DLig = .Range("a" & Rows.Count).End(xlUp).Row
.Range("a" & DLig + 1).Value = ComboBox5
End With
With Sheets("feuille métré")
DLig = .Range("a" & Rows.Count).End(xlUp).Row
.Range("b" & DLig + 0).Value = ComboBox6
End With
With Sheets("feuille métré")
DLig = .Range("a" & Rows.Count).End(xlUp).Row
.Range("c" & DLig + 0).Value = ComboBox7
End With
With Sheets("feuille métré")
DLig = .Range("a" & Rows.Count).End(xlUp).Row
.Range("d" & DLig + 0).Value = ComboBox8
End With


A la revoyure...
Benoît
 
Re : inserrer des valeurs de textbox, label et combobox sur une seul et même ligne

Bonjour BEUBZIR,

Pourquoi ne pas utiliser :
DerniereLigne = TaCellule.CurrentRegion.End(xlDown).Row

Ta macro pourrait être simplifiée :

VB:
Private Sub CommandButton2_Click()
 Dim DLig As Long
 With Sheets("feuille métré")
 DLig = .Range("a10").CurrentRegion.End(xlDown)(2).Row
 .Range("a" & DLig).Value = ComboBox5
 .Range("b" & DLig).Value = ComboBox6
 .Range("c" & DLig).Value = ComboBox7
 .Range("d" & DLig).Value = ComboBox8
 End With

A te relire

Martial
 
Dernière édition:
- 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

Retour