conflits entres Private sub

[magalie]

bonjour à toutes et à tous,
j'ai un conflit dans cet ensemble qui ne fonctionne pas notamment
Private Sub CBT_Valider_Click() qui m'indique "erreur de compilation varaible non définie"

Option Explicit
Dim ws As Worksheet

Private Sub ComboBox1_Change()
Dim i As Integer
If Me.ComboBox1.ListIndex = -1 Then Exit Sub
With Me.ComboBox2
.Clear
For i = 2 To ws.Cells(Me.ComboBox1.Column(1), Columns.Count).End(xlToLeft).Column
.AddItem ws.Cells(Me.ComboBox1.Column(1), i)
Next i
End With
End Sub

Private Sub userform_initialize()
Dim j As Long
Set ws = Sheets("Renseignements")
With Me.ComboBox1
.ColumnCount = 2
.ColumnWidths = "-1;0"
For j = 1 To ws.Range("a" & Rows.Count).End(xlUp).Row
.AddItem ws.Range("a" & j)
.List(.ListCount - 1, 1) = j
Next j
End With
End Sub

Private Sub CBT_Valider_Click()
If VIS_1 Then
With Sheets("VIS1")
lig = .[A65536].End(xlUp).Row + 1
.Range("A" & lig).Value = ComboBox1.Value
.Range("B" & lig).Value = ComboBox2.Value
.Range("C" & lig).Value = CDate(TB_date.Value)
.Range("D" & lig).Value = TB_compte.Value
End With

'ElseIf
End If
End Sub

il s'agit d'un userform avec deux menus déroulants liés et d'un bouton qui transfère des données.

merci d'avance

 

[pierrejean]

Re : conflits entres Private sub

Bonjour magalie

Qu'est-ce que VIS_1 ????

 

[Pierrot93]

Re : conflits entres Private sub

Bonjour Magalie, PierreJean🙂

tu es en "option explicit" en tête de module, donc toutes les variables utilisées doivent être déclarées et préférable de les typer également :

Dim lig As Long

bonne journée
@+

 

[magalie]

Re : conflits entres Private sub

bonjour Pierrejean et Pierrot
bon sang mais c'est bien sur
merci beaucoup