Appel d'une ligne

Résolu

cedric0715 Messages postés 210 Date d'inscription Statut Membre Dernière intervention -
baladur13 Messages postés 47783 Date d'inscription Statut Modérateur Dernière intervention - 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:

Appel d'une ligne
Nommez une application d'appel vidéo ou de visioconférence - Guide
Partager photos en ligne - Guide
Appel privé - Guide
Mètre en ligne - Guide
Aller à la ligne excel - Guide

3 réponses

Réponse 1 / 3

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour,

Dim COMPT As Long

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

cedric0715 Messages postés 210 Date d'inscription Statut Membre Dernière intervention

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 17277 Date d'inscription Statut Membre Dernière intervention 1 713 > cedric0715 Messages postés 210 Date d'inscription Statut Membre Dernière intervention

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

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 Statut Membre Dernière intervention

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 47783 Date d'inscription Statut Modérateur Dernière intervention 13 684

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

Discussions similaires

Prix d'un appel locale = gratuit ?

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

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

Prix d'un appel local

Votre réponse

Discussions similaires