un petit coup d’œil sur le code vba

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

Ilino

XLDnaute Barbatruc
FORUM Bonjour
Je suis entrain de préparer une feuille de suivie et voila je suis bloqué au niveau de formulaire de saisie dans la feuille accueil pour cette raison je vous sollicitez de faire un petit coup d’œil sur le code vba partie FORMULAIRE q😱ui me bloque.. je vous dis pas urgent parceque j'ai pas le droit mais je vous dis que je suis bloqué🙁

ci joint le fichier
merci
 

Pièces jointes

Re : un petit coup d’œil sur le code vba

Bonjour tout le monde bonjour laeti
Je tien a VOUS remercié pour le code de défilement que tu as fais et je l’ai utilisé…

merci kiki4 pour la réponse rapide , mais si vous permettez je vous retransmis le fichier avec la listes rempliée

merci
 

Pièces jointes

Re : un petit coup d’œil sur le code vba

bonjour Ilino🙂

dans initialise elles sont ou les rowsource???


PS salut hasco🙂🙂🙂🙂
ps salut kiki
FORUM Bonsoir, laetitia Bonsoir
vous avez raison j'ai mal definit les rowsource, mnt le pblm est reglé mais mon formulaire il n'incremente pas pourquoi?
 

Pièces jointes

Re : un petit coup d’œil sur le code vba

re,🙂🙂🙂🙂🙂
essai comme cela
Code:
Private Sub CommandButton2_Click()
  Dim m As Long
  m = Sheets("FSC 2012").Range("b" & Rows.Count).End(xlUp).Row + 1
  With Sheets("FSC 2012")
  .Range("B" & m) = ComboBox1.Value
  .Range("A" & m) = m - 3
  .Range("D" & m) = ComboBox2.Value
  .Range("E" & m) = TextBox1.Value
  .Range("F" & m) = TextBox2.Value
  .Range("K" & m) = ComboBox4.Value
  .Range("O" & m) = ComboBox5.Value
  .Range("Q" & m) = TextBox4.Value
  .Range("T" & m) = ComboBox7.Value
  .Range("V" & m) = ComboBox8.Value
  .Range("Y" & m) = ComboBox9.Value
  .Range("Z" & m) = TextBox6.Value
  .Range("AA" & m) = TextBox7.Value
 End With
 Unload Me: Formulaire.Show
End Sub
 
Re : un petit coup d’œil sur le code vba

re, 🙂🙂🙂🙂🙂
j'ai teste mon code il marche sur l'autre fichier il marchait a condition dans la feuille d'enlever les donnees sur la derniere ligne1048576 ??

Bonjour LAETITEA
Merci pour ton aide tu as raison 😱 maintenant ça fonctionne bien mais a condition que la première ligne de mon tableau soit remplisse sans USF😕😕????
ILINO RAMO
 

Pièces jointes

- 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
32
Affichages
1 K
Réponses
18
Affichages
1 K
Retour