Discussion :

[EAU24]

Bonjour à tous,
Euh ! j'ai encore un p'tit problème avec mes TextBox. Quand j'ajoute un nouveau salarié, je dois aller sur chaque cellule de la liste et valider en positionnant mon curseur derrière chaque donnée. Autrement dit, les informations que je saisie, ne peuvent pas être exploitées avec des formules Excel simple comme "recherchev" par exemple si je ne l'ai pas valider dans chaque cellule renseignée.
Je joins un petit classeur avec une petite liste de noms pour l'exemple. Merci de votre aide

[ARTURO83]

Bonjour,

Sélectionnez la cellule d'à côté après avoir récupérer les textbox. Exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Range("D" & L).Select

Cdlt

[MarcelG]

Bonjour EAU,

Pas d'ouverture de pièce jointe en début de discussion.
Au demeurant, tu peux reporter le code utilisé et préciser le(s) point(s) d'achoppement.

[EAU24]

Bonjour,

Sélectionnez la cellule d'à côté après avoir récupérer les textbox. Exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Range("D" & L).Select

Cdlt

Bonjour ARTURO83, désolé mais ça ne marche pas. Si le contenu du TextBox s'inscrit bien dans la cellule je dois quand même activer cette cellule en plaçant le curseur derrière le contenu pour que cela déclenche les fonctions liées à cette cellule.

EAU

[ARTURO83]

Bojnour,

Avez-vous fait ceci?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
'Pour le bouton Nouveau contact
Dim L As Integer
If MsgBox("Confirmez-vous l'insertion de ce nouveau salarié ?", vbYesNo, "Demande de confirmation d'ajout") = vbYes Then
    L = Sheets("FEUIL1").Range("a65536").End(xlUp).Row + 1
    Range("C" & L).Value = TextBox1
    Range("A" & L).Value = TextBox2
    Range("B" & L).Value = TextBox3
    Range("D" & L).Select
    End If
End Sub

Cdlt

[EAU24]

Oui j'ai ajouter la ligne telle que vous l'avez indiquée...

[ARTURO83]

Bonjour,

désolé mais ça ne marche pas. Si le contenu du TextBox s'inscrit bien dans la cellule je dois quand même activer cette cellule en plaçant le curseur derrière le contenu pour que cela déclenche les fonctions liées à cette cellule.

Vous ne me donnez pas tous les éléments.
-Quelle est la cellule qui contient la fonction?
-De quelle TextBox s'agit-il?
-Y a t-il une fonction pour chaque cellule liée aux textBox?

Cdlt

[EAU24]

Bonjour ARTURO83,
J'ai réalisé un petit classeur dans lequel j'ai mis une douzaine de noms, un numéro de matricule et une colonne contenant les prénoms.
Soit les colonnes A, B et C.
J'ai ensuite réalisé un UserForm avec un CommandButton de manière à alimenter la liste en remplissant les 3 colonnes avec des TextBox. Seulement les informations saisie s'inscrivent bien dans chaque colonne mais il faut que je me place dans chaque cellule pour activer le contenu des cellule. Car sinon si j'installe un "recherchev" dans la feuille il ne trouve pas le dernier entrant. J'avais joint le classeur (rassurez-vous il n'y a pas de virus!!!). Merci de votre aide en attendant de faire tchin tchin....

[ARTURO83]

Ok, j'ai compris.
Ajoutez ".Value" derrière TextBox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
    Dim L As Integer
    If MsgBox("Confirmez-vous l'insertion de ce nouveau salarié ?", vbYesNo, "Demande de confirmation d'ajout") = vbYes Then
        L = Sheets("FEUIL1").Range("a65536").End(xlUp).Row + 1
        Range("C" & L).Value = TextBox1.Value
        Range("A" & L).Value = TextBox2.Value
        Range("B" & L).Value = TextBox3.Value
        Formule
    End If
End Sub

Puis ajout d'un bout de code dans un module standard

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Formule()
    Dim DerLig As Long
    Application.ScreenUpdating = False
    DerLig = [A1].End(xlDown).Row
    [K5].FormulaR1C1 = "=IFERROR(VLOOKUP(R[-3]C,R[-4]C[-10]:R" & DerLig & "C[-8],2),"""")"
End Sub

Cdlt

[EAU24]

T'chin T'chin !!! à la votre... Merci ça roule...(j'ai vécu 12 ans à TOULON). Re-merci
EAU