(Message d'erreur sinon si cellule vide en colonne A)
Code:
Private Sub UserForm_Initialize()
Dim i
For i = 1 To 3
If Not IsEmpty(Range("A" & i)) Then
Me.Controls("CheckBox" & Range("A" & i)).Value = True
End If
Next i
End Sub
Un grand merci à vous deux. Vous m'avez confirmé que j'avais juste (oui car dans mon vrai fichier, je n'ai pas de ligne à zéro - donc le soucis ne pouvait provenir de là!), j'ai donc creusé ailleur, en effet le problème provenais d'ailleur : macro placé au mauvaise endroit!
Ayant trouvé une solution, je n'avais pas regardé ni vu que mon ancien post avait eu une réponse supplémentaire! J'ai profité de ton message pour regarder et tester la solution de Soenda :
Code:
For i = 1 To 9
Controls("CheckBoxSem" & i).Value = [COLOR="Red"][B]([/B][/COLOR]Range("A" & i) [COLOR="Red"][B]= 1)[/B][/COLOR]
next i
Je ne comprend pas ceci
Je l'ai testé dans la pièce jointe au post concerné pour voir comment elle se comporte, l'analyser, mais je n'arrive pas à la faire fonctionner! (je vais mettre cette remarque là-bas pour remercier Soenda et le prévenir - car ici je suis un peu hors sujet!)
Pour information, voici ci-dessous mon code final retenu :
Code:
'...
For i = 3 To Range("A65536").End(xlUp).Row
If Cells(i, 1) = Me.ComboBoxNP.Value Then
[COLOR="Blue"]Controls("CheckBoxSem" & Range("B" & i)).Value = True[/COLOR]
End If
Next i
'...
Edition : pour ceux qui voudrait suivre et comprendre, suite et fin ici
Private Sub UserForm_Click()
For i = 1 To 3
'Cellules A1 à A3 sont vides ou non vides
'Me.Controls("CheckBox" & i).Value = (Range("A" & i) <> "")
'si la valeur des cellules A1 à A3 est 1 ou vide
Me.Controls("CheckBox" & i).Value = (Range("A" & i) = 1)
Next i
End Sub
Pour finir de comprendre
en B1; saisis: =(A1=1)
si A1=1 alors B1 renvoie VRAI
Oui j'avais compris, j'ai posté la réponse à mes interrogations sur l'autre fil juste avant que tu post ta réponse ici
(heure de dépôt de mon post 23H24 ici)
Mais c'est sympa quand même. Un grand merci pour tes explications et le temps que tu as passé à bosser sur mon problème.