Sujet Précédent Sujet Suivant

Appel d'une ligne

Résolu/Fermé
cedric0715 Messages postés 210 Date d'inscription mercredi 25 février 2015 Statut Membre Dernière intervention 6 mai 2018 - 13 janv. 2017 à 11:09
baladur13 Messages postés 47224 Date d'inscription mercredi 11 avril 2007 Statut Modérateur Dernière intervention 22 janvier 2025 - 17 janv. 2017 à 11:41
Bonjour,
bonjour
j ai un userform qui appel un ligne déjà enregistre afin de rajouter un complément information
cela met e un erreur 70 des lors que je valide
pouvez vous m'aider
ci dessous mon code 

Private Sub CommandButton1_Click() 'à l'initialisation de l'UserForm
ComboBox1.List = Range("A6:A" & Range("A65536").End(xlUp).Row).Value
Dim COMPT As Long
With Sheets("suivi DI")
Range("L" & COMPT).Value = TextBox1
Range("M" & COMPT).Value = TextBox2
Range("N" & COMPT).Value = ComboBox2
Range("O" & COMPT).Value = ComboBox3
Range("P" & COMPT).Value = TextBox3
Unload UserForm2
End With
End Sub

Private Sub ComboBox1_Change() 'au changement dans la ComboBox1
Cells(ComboBox1.ListIndex + 6, 1).EntireRow.Select 'sélectionne la ligne correspondante
End Sub

merci

3 réponses

Réponse 1 / 3
f894009 Messages postés 17229 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 21 janvier 2025 1 712
13 janv. 2017 à 11:13
Bonjour, 
Dim COMPT As Long


Ok, mais quelle valeur a cette variable, pas d'affectation??
0
cedric0715 Messages postés 210 Date d'inscription mercredi 25 février 2015 Statut Membre Dernière intervention 6 mai 2018
13 janv. 2017 à 11:18
j ai mis compt pour dire que les valeur vienne un compte rendu
est ce que il faliat mieux mettre
Dim COMPT As Integer
0
f894009 Messages postés 17229 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 21 janvier 2025 1 712 > cedric0715 Messages postés 210 Date d'inscription mercredi 25 février 2015 Statut Membre Dernière intervention 6 mai 2018
13 janv. 2017 à 11:20
Re,

pas d'affectation: veut dire que cette variable est egale a 0, puisque vous ne l'affectez pas a une valeur!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
0
Réponse 2 / 3
momo
13 janv. 2017 à 11:45
Bonjour
sans modèle de ton fichier dur a voir
voila un exemple 

Private Sub CommandButton1_Click()
Dim COMPT As Long
COMPT = ComboBox1.ListIndex + 6
   With Sheets("suivi DI")
         .Range("L" & COMPT).Value = TextBox1
         .Range("M" & COMPT).Value = TextBox2
         .Range("N" & COMPT).Value = ComboBox2
         .Range("O" & COMPT).Value = ComboBox3
         .Range("P" & COMPT).Value = TextBox3
      ComboBox1.Clear
         ComboBox1.List = .Range("A6:A" & .Range("A" & Rows.Count).End(xlUp).Row).Value
   End With
Unload Me
End Sub

A+
Maurice
0
Réponse 3 / 3
cedric0715 Messages postés 210 Date d'inscription mercredi 25 février 2015 Statut Membre Dernière intervention 6 mai 2018
13 janv. 2017 à 12:00
j ai mis cela est sa marche
merci de vos avis 
rivate Sub CommandButton1_Click()
Dim COMPT As Long
COMPT = ComboBox1.ListIndex + 6
   With Sheets("suivi DI")
         .Range("L" & COMPT).Value = TextBox1
         .Range("M" & COMPT).Value = TextBox2
         .Range("N" & COMPT).Value = ComboBox2
         .Range("O" & COMPT).Value = ComboBox3
         .Range("P" & COMPT).Value = TextBox3

          End With
Unload Me
End Sub
0
baladur13 Messages postés 47224 Date d'inscription mercredi 11 avril 2007 Statut Modérateur Dernière intervention 22 janvier 2025 13 551
17 janv. 2017 à 11:41
Bonjour
A toutes fins utiles ==> https://www.commentcamarche.net/infos/25917-marquer-un-fil-de-discussion-comme-etant-resolu/
0

Discussions similaires

Code de renvoi d'appel : Ooredo, Mobilis...
midoou07 -
Camille -

13 réponses
Que veut dire "correspondant occupé" lors d'un appel ?
veroaaa -
Pat -

10 réponses
Prix d'un appel locale = gratuit ?
madmax09 -
Pseudo -

5 réponses
On me voit connecté sur facebook alors que je n'y suis pas
MrTheMolode -
lily -

5 réponses