Bonjour,
j'aimerai savoir s'il est possible d'insérer une formule de type vlookup dans un textebox en relation avec une autre textbox lors d'une création dans formulaire avec Userform.
Merci d'avance pour votre précieuse aide.
exemple.
j'aimerai que lorsqu'un utilisateur insère une donnée de type numérique dans le tableau saisie du formulaire (txtbox) que le valeur recherchée s'affiche automatiquement dans le champ en-dessous (un autre txtbox). voici le texte vba que j'ai écrit.
If CckBoxSaisieDefalc And CckBoxGestionEnc = True Then
resultat = MsgBox("VOUS NE POUVEZ PAS SELECTIONNER SIMULTANEMENT LA SAISE DES DEFALCATIONS ET LA GESTION DES ENCAISSEMENTS", vbInformation, "WARNING"
Exit Sub
End If
If CckBoxGestionEnc = True Then
With Gestiondefalcation
.LabNoDefalEnc.Visible = True
.TxtBoxNoDefalEnc.Visible = True
.LabMontantDefalEnc.Visible = True
.TxtBoxMontantDefalEnc.Visible = True
.TxtBoxMontantDefalEnc.Value = vlookup (txtboxnodefalenc.Value,basegestion,RC[11],false)
.CckBoxEncsstacpte.Visible = True
.CckBoxEncsstsolde.Visible = True
End With
Else
With Gestiondefalcation
.LabNoDefalEnc.Visible = False
.TxtBoxNoDefalEnc.Visible = False
.LabMontantDefalEnc.Visible = False
.TxtBoxMontantDefalEnc.Visible = False
.CckBoxEncsstsolde.Visible = False
.CckBoxEncsstacpte.Visible = False
End With
End If
End Sub
j'aimerai savoir s'il est possible d'insérer une formule de type vlookup dans un textebox en relation avec une autre textbox lors d'une création dans formulaire avec Userform.
Merci d'avance pour votre précieuse aide.
exemple.
j'aimerai que lorsqu'un utilisateur insère une donnée de type numérique dans le tableau saisie du formulaire (txtbox) que le valeur recherchée s'affiche automatiquement dans le champ en-dessous (un autre txtbox). voici le texte vba que j'ai écrit.
If CckBoxSaisieDefalc And CckBoxGestionEnc = True Then
resultat = MsgBox("VOUS NE POUVEZ PAS SELECTIONNER SIMULTANEMENT LA SAISE DES DEFALCATIONS ET LA GESTION DES ENCAISSEMENTS", vbInformation, "WARNING"
Exit Sub
End If
If CckBoxGestionEnc = True Then
With Gestiondefalcation
.LabNoDefalEnc.Visible = True
.TxtBoxNoDefalEnc.Visible = True
.LabMontantDefalEnc.Visible = True
.TxtBoxMontantDefalEnc.Visible = True
.TxtBoxMontantDefalEnc.Value = vlookup (txtboxnodefalenc.Value,basegestion,RC[11],false)
.CckBoxEncsstacpte.Visible = True
.CckBoxEncsstsolde.Visible = True
End With
Else
With Gestiondefalcation
.LabNoDefalEnc.Visible = False
.TxtBoxNoDefalEnc.Visible = False
.LabMontantDefalEnc.Visible = False
.TxtBoxMontantDefalEnc.Visible = False
.CckBoxEncsstsolde.Visible = False
.CckBoxEncsstacpte.Visible = False
End With
End If
End Sub