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 46395 Date d'inscription mercredi 11 avril 2007 Statut Modérateur Dernière intervention 24 avril 2024 - 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

A voir également:

3 réponses

Réponse 1 / 3

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
13 janv. 2017 à 11:13

Bonjour,

Dim COMPT As Long

Ok, mais quelle valeur a cette variable, pas d'affectation??

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

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > 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!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

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

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

baladur13 Messages postés 46395 Date d'inscription mercredi 11 avril 2007 Statut Modérateur Dernière intervention 24 avril 2024 13 219
17 janv. 2017 à 11:41

Bonjour
A toutes fins utiles ==> https://www.commentcamarche.net/infos/25917-marquer-un-fil-de-discussion-comme-etant-resolu/

Discussions similaires

Code de renvoi d'appel : Ooredo, Mobilis...

Que veut dire "correspondant occupé" lors d'un appel ?

Statut « en ligne » alors que non

Renvoie code ooredoo

Ligne occupée : pourquoi mon téléphone sonne occupé ?

Discussions similaires

Newsletters