Discussion :

[Doby77]

Bonjour,

Je suis novice en programmation VBA, j'essaye de "programmer" un petit logiciel qui me permettra de gérer les absences dans mon entreprise.

Donc j'ai une partie "identification" ou à l'aide d'une combobox "j'appel" le nom du personnel voulu et ma programmation me permet de récupérer les autres informations liés au l'identification de la personne (prénom...).

Dans la deuxième partie je cherche à récupérer le jour correspondant à une date précise de la même manière et là ca ne marche pas j'ai beau chercher....

L'autre souci est que j'ai 2 feuilles dans le fichier :

- la première me permet de "saisir" les infos et donc de constituer une "base de données" des absences
- La deuxième contient TOUTEs les infos me permettant de remplir les combobox et textbox....

MAIS je n'arrive pas à lui dire de chercher les infos sur la feuil3 (informations) quand je lance le formulaire sur la Feuil1.... et si je reste sur la Feuil3 alors le programme qui me range les infos dans la feuil1 me les range dans la 3 et dezingue donc ma base d'informations....

Je cherche bien evidement à progresser et comprendre donc si jamais vous me répondez, pourriez-vous m'expliquer la où je me plante?


Je vous remercie d'avance

[SfJ5Rpw8]

Bonjour,

poste entre balises [code] [/Code] la partie de code que tu utilise pour transférer les données dans ton formulaire, pour accéder aux données de ta feuille 3 tu peu écrire un code du genre :

Code :

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

texte1 = Thisworkbook.Feuil3.range("A3")

[Doby77]

Merci pour cette réponse plus que rapide

Je vais tester ca tout de suite et vous tenir au courant....

Pour ma première question, avez-vous compris pourquoi celà ne fonctionne pas?


Merci encore et merci encore d'avance

[Doby77]

Excusez moi mais en fait j'ai pas tout compris donc je reprend mon post pour voir si je me suis bien expliquer ou pas

J'ai 2 soucis

1/ j'ai un code qui permet de récuperer des infos dans des textbox à partir d'un combobox qui fonctionne :

Code :

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

1
2
3
4
5
6
7
Private Sub ComboBox5_Change()
Dim Ligne As Long
    Ligne = Application.Match(Me.ComboBox5.Value, [E:E], 0)
    Me.TextBox1.Text = Application.Index([F:F], Ligne, 1)
    Me.TextBox2.Text = Application.Index([G:G], Ligne, 1)
    Me.TextBox3.Text = Application.Index([H:H], Ligne, 1)
End Sub

MAIS il ne fonctionne pas içi :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub ComboBox2_Change()
 
ComboBox2.Value = Format(ComboBox2.Value, "dd/mm/yyyy")
With Sheets("Feuil3")
Dim Ligne As Long
    Ligne = Application.Match(Me.ComboBox2.Value, [B:B], 0)
    Me.TextBox4.Text = Application.Index([A:A], Ligne, 1)
 
End Sub

ERREUR "End sub attendu"

2/ le problème de localisation des infos et du recopiage des données en appuyant sur mon bouton

Si je lance le formulaire alors que la Feuil1 est "choisie" il ne trouve pas les données de la Feuil3 et si je met la Feuil3 en premier il aura tendance à coller les infos au moment d'appuyer sur le bouton d'envoi dans la Feuil3 au lieu de la Feuil1


Voilà, j'espère avoir été plus claire que dans mon premier post

Cordialement

[SfJ5Rpw8]

tu ne peu pas utiliser la notation du genre [A:A] .. cela utilise la feuille active et c'est une grosse source de problème tel que les tiens ... l'utilisation de with permet d'éviter la répétition du nom de la feuille par exemple mais il ne faut pas oublier de mettre un point aux endroits ou tu voudrais mettre le nom de la feuille ...


du genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
with  ThisworkBook.sheets("Feuil1")
   Ligne = Application.Match(Me.ComboBox5.Value, .Range("E:E"), 0)
    Me.TextBox1.Text = Application.Index(.range("F:F"), Ligne, 1)
...
end with
...
 
With ThisworkBook.Sheets("Feuil3")
Dim Ligne As Long
    Ligne = Application.Match(Me.ComboBox2.Value, .range("B:B"), 0)
...
end with

[Doby77]

Désolé

Je vous remercie de votre aide mais là j'avoue que mon niveau ne me permet même pas de comprendre votre réponse...

Je vais essayer de continuer à bidouiller et apprendre mai sc'est quand même compliqué

J'ai essaye d'introduire vos commentaires mais ca ne change rien, je ne dois pas avoir le niveau requis

Si vous avez plu ssimple pour m'expliquer je suis preneur sinon je retourne à mes tutos...


Merci encore