Remplir cellule avec macro vba - case à coche
fleurlille
-
fleurlille -
fleurlille -
Bonjour,
Pourquoi ca ne fonctionne pas :
Private Sub ok_button_server_Click()
If option1_server.Value = True Then
Range(Cells(i, 5)).Value = "Dell"
End If
If option1_printserver.Value = True Then
Range(Cells(i, 5)).Value = "DellPrint"
End If
End Sub
Le but recherché:
Suite à l'apparition d'un formulaire présentant un ensemble de cases à cocher, l'utilisateur clique sur un bouton "OK" : ok_button_server.
Je voudrais inscrire Dell (ou Dellprint) selon son choix de case, dans la cellule (i,5)
Le i est declaré en Public dans mon module, j'ai verifié avec le debogeur i prend bien la valeur souhaitée.
Merci d'avance pour vos reponses !
Fleur
Pourquoi ca ne fonctionne pas :
Private Sub ok_button_server_Click()
If option1_server.Value = True Then
Range(Cells(i, 5)).Value = "Dell"
End If
If option1_printserver.Value = True Then
Range(Cells(i, 5)).Value = "DellPrint"
End If
End Sub
Le but recherché:
Suite à l'apparition d'un formulaire présentant un ensemble de cases à cocher, l'utilisateur clique sur un bouton "OK" : ok_button_server.
Je voudrais inscrire Dell (ou Dellprint) selon son choix de case, dans la cellule (i,5)
Le i est declaré en Public dans mon module, j'ai verifié avec le debogeur i prend bien la valeur souhaitée.
Merci d'avance pour vos reponses !
Fleur
Configuration: Windows XP Internet Explorer 6.0
