bonjour,
je sollicite vos aides d'expert pour un petit problème que je rencontre.
On m'a dit un jour "google est ton ami" mais il ne l'ai pas aujourd'hui ! ! !
Voila j'ai créer un tableau pour que l'on puisse évaluer les entreprises avec lesquels on travail.
Ce que je voudrais savoir c'est comment fait ton pour quand je sélectionne le premier boutons option "oui" qu'il y ai "oui" qui s'inscrive dans tel colonne et au fur et a mesure je sèche. J'ai des bouts de code qui traine dans vba mais rien qui fonctionne.
J'ai voulu joindre un fichier mais je n'ai pas de logiciel qui zip
donc voila le code que j'ai pour la commande valider
précision je n'ai pas toujours que 2 boutons options par frame mais jusqu'a 6 boutons options voici le code :
Private Sub CmdValider_Click()
If UserForm1.TxtInitiale.Text = "" Then
MsgBox "Vous devez entrer vos initiales."
UserForm1.TxtInitiale.SetFocus
Exit Sub
End If
If TxtDate.Value = "" Then
MsgBox ("Il faut indiquer la date !")
Exit Sub
Else
MaDate = CDate(TxtDate.Value)
End If
If UserForm1.Txtchantier.Text = "" Then
MsgBox "Vous devez entrer une reference chantier et une commune."
UserForm1.Txtchantier.SetFocus
Exit Sub
End If
If UserForm1.Entreprises.Text = "" Then
MsgBox "Veuillez selectionner une entreprise."
UserForm1.Entreprises.SetFocus
Exit Sub
End If
If cbboxnote.ListIndex = -1 Then
MsgBox ("Veuillez s'il vous plait attribuer une note a cette entreprise")
Exit Sub
End If
If OptOuiCM = True And OptNonCM = False Then ouicm.Value = marchecontrat.Value
Else: noncm.Value = marchecontrat.Value
End If <== c'est ce code que je cherche en gros
num = Sheets("Tableau Recapitulatif").Range("A65536").End(xlUp).Row + 1
Sheets("Tableau Recapitulatif").Activate
Range("A" & num).Value = CDate(TxtDate.Value)
Range("B" & num).Value = Txtchantier.Value
Range("C" & num).Value = Entreprises.Value
Range("D" & num).Value = TxtInitiale.Value
Range("E" & num).Value = contratmarche.Value
Range("Z" & num).Value = cbboxnote.Value
Unload Me
End Sub
vous remerciant pas avance
si vous avez du mal a me comprendre redemandez moi ca fait 3 jours que je suis a fond dessus et j'ai du mal a expliquer ce que je veux.
amicalement vôtre
babaouba
je sollicite vos aides d'expert pour un petit problème que je rencontre.
On m'a dit un jour "google est ton ami" mais il ne l'ai pas aujourd'hui ! ! !
Voila j'ai créer un tableau pour que l'on puisse évaluer les entreprises avec lesquels on travail.
Ce que je voudrais savoir c'est comment fait ton pour quand je sélectionne le premier boutons option "oui" qu'il y ai "oui" qui s'inscrive dans tel colonne et au fur et a mesure je sèche. J'ai des bouts de code qui traine dans vba mais rien qui fonctionne.
J'ai voulu joindre un fichier mais je n'ai pas de logiciel qui zip
donc voila le code que j'ai pour la commande valider
précision je n'ai pas toujours que 2 boutons options par frame mais jusqu'a 6 boutons options voici le code :
Private Sub CmdValider_Click()
If UserForm1.TxtInitiale.Text = "" Then
MsgBox "Vous devez entrer vos initiales."
UserForm1.TxtInitiale.SetFocus
Exit Sub
End If
If TxtDate.Value = "" Then
MsgBox ("Il faut indiquer la date !")
Exit Sub
Else
MaDate = CDate(TxtDate.Value)
End If
If UserForm1.Txtchantier.Text = "" Then
MsgBox "Vous devez entrer une reference chantier et une commune."
UserForm1.Txtchantier.SetFocus
Exit Sub
End If
If UserForm1.Entreprises.Text = "" Then
MsgBox "Veuillez selectionner une entreprise."
UserForm1.Entreprises.SetFocus
Exit Sub
End If
If cbboxnote.ListIndex = -1 Then
MsgBox ("Veuillez s'il vous plait attribuer une note a cette entreprise")
Exit Sub
End If
If OptOuiCM = True And OptNonCM = False Then ouicm.Value = marchecontrat.Value
Else: noncm.Value = marchecontrat.Value
End If <== c'est ce code que je cherche en gros
num = Sheets("Tableau Recapitulatif").Range("A65536").End(xlUp).Row + 1
Sheets("Tableau Recapitulatif").Activate
Range("A" & num).Value = CDate(TxtDate.Value)
Range("B" & num).Value = Txtchantier.Value
Range("C" & num).Value = Entreprises.Value
Range("D" & num).Value = TxtInitiale.Value
Range("E" & num).Value = contratmarche.Value
Range("Z" & num).Value = cbboxnote.Value
Unload Me
End Sub
vous remerciant pas avance
si vous avez du mal a me comprendre redemandez moi ca fait 3 jours que je suis a fond dessus et j'ai du mal a expliquer ce que je veux.
amicalement vôtre
babaouba