Bonjour,
Avant de devenir chauve à force de m arracher les cheveux, j'en appelle à votre aide ... Merci d'avance aux grands gourous de ce forum
Je vais essayer d'être le plus clair possible.
Dans une appli, j'ai deux userforms qui comportent "à peu pres" le meme code :
premier code :
Private Sub bouton_sauv_tech_Click()
Dim ws As Worksheet
' sauvegarde des parametres
Set ws = Worksheets("Configuration")
With ws
For i = 1 To 5
.Cells(i + 3, 2) = Config_techniciens.Controls("prenom" & i).Value
.Cells(i + 3, 3) = Config_techniciens.Controls("nom" & i).Value
.Cells(i + 3, 4) = Config_techniciens.Controls("profil" & i).Value
.Cells(i + 3, 5) = Config_techniciens.Controls("temps_pres" & i).Value
.Cells(i + 3, 6) = Config_techniciens.Controls("ponder" & i).Value
Next i
End With
Unload Config_techniciens
Set ws = Nothing
End Sub
second code :
Private Sub bouton_sauv_Click()
Dim ws As Worksheet
' memorisation du chemin ou se trouve le fichier "data"
Set ws = Worksheets("Configuration")
With ws
.Cells(3, 11) = Config_data.Controls(chemin_data).Value
End With
Unload Config_data
Set ws = Nothing
End Sub
Le premier userform s'affiche et "fonctionne" corrrectement alors que le second provoque une erreur d'execution "le type ne correspond pas" ...
Si des yeux avertis pouvaient m'aiguiller sur la solution ;-)
Au plaisir de vous lire !
Avant de devenir chauve à force de m arracher les cheveux, j'en appelle à votre aide ... Merci d'avance aux grands gourous de ce forum
Je vais essayer d'être le plus clair possible.
Dans une appli, j'ai deux userforms qui comportent "à peu pres" le meme code :
premier code :
Private Sub bouton_sauv_tech_Click()
Dim ws As Worksheet
' sauvegarde des parametres
Set ws = Worksheets("Configuration")
With ws
For i = 1 To 5
.Cells(i + 3, 2) = Config_techniciens.Controls("prenom" & i).Value
.Cells(i + 3, 3) = Config_techniciens.Controls("nom" & i).Value
.Cells(i + 3, 4) = Config_techniciens.Controls("profil" & i).Value
.Cells(i + 3, 5) = Config_techniciens.Controls("temps_pres" & i).Value
.Cells(i + 3, 6) = Config_techniciens.Controls("ponder" & i).Value
Next i
End With
Unload Config_techniciens
Set ws = Nothing
End Sub
second code :
Private Sub bouton_sauv_Click()
Dim ws As Worksheet
' memorisation du chemin ou se trouve le fichier "data"
Set ws = Worksheets("Configuration")
With ws
.Cells(3, 11) = Config_data.Controls(chemin_data).Value
End With
Unload Config_data
Set ws = Nothing
End Sub
Le premier userform s'affiche et "fonctionne" corrrectement alors que le second provoque une erreur d'execution "le type ne correspond pas" ...
Si des yeux avertis pouvaient m'aiguiller sur la solution ;-)
Au plaisir de vous lire !