Connexion à une base Access via VBA Excel

Bonjour,

Sur un UF, j'ai 3 TextBox dont 2 qui sont verrouillées (la 1 et la 3).
La première affiche un récapitulatif de ce qui a été saisi par l'utilisateur dans les UF précédents.
La 2 permet d'insérer un commentaire libre.
La 3 permet de faire un récapitulatif de ce qui est écrit dans la 1 et la 2.
Je n'ai pas trouvé comment mettre à jour automatiquement la 3 quand on ajoute un commentaire libre dans la 2. J'ai donc créé un bouton "MAJ" avec le code suivant :

Private Sub CommandButton1_Click()
Conclusion.TextBox3 = Conclusion.TextBox1.Value & char(13) & Conclusion.TextBox2.Value
End Sub

J'ai trouvé le c...

Bonjour,

j'ai un devoir à faire pour une initiation au vba. On doit comprendre le programme que nous à écrit le prof et l'expliquer.
Je bute sur la ligne suivante:


With sheets("Feuil2").Range("B1")
Me.rp.Rowsource = range(.cells, .end(xlDown) (1,2)).Address(external:= true)
End with


Voici ce que j'ai compris:
Grâce à ce code, j'active ma feuil2 et me positionne en B1.
Puis je définis la liste de ma combobox "rp" grâce à la fonction Rowsource.
Ma plage de liste est de B1 jusqu'à une ligne vide de la colonne B.

Ce qui me pose problème:

je ne comprends pas pourquoi j'ai le (1,...

Bonjour,

J'ai pris un exemple dans un livre de VBA pour les NULS (page 55) mais ça plante à l'exécution. Je ne vois pas où est l'erreur?

Sub MasquerToutSaufVueUtilisateur()

ActiveWindow.Panes(1).Activate
Columns("Q:Q").Select
Range(Selection, Selection.End(xlToRight)).Select

Selection.EntireColumn.Hidden = True

ActiveSheet.Shapes.Range(Array("Group Box 95")).Select

' faire hidden sur le box &H8000000F& (blanc) l'instruction suivante ne fonctionne pas non plus???
' ActiveSheet.Shapes.Range(Array("Group Box 95")).BorderColor = &H8000000F

Bonjour,

j'aimerai que lorsqu'un utilisateur clic ou double clic (peu importe) sur une cellule un UserForm apparaisse avec dedans des case à cocher (environ une quinzaine), et un bouton valider qui ensuite va récupérer les valeurs de ces checkbox ( mais attention je ne veut pas que sa m'affiche Vrai ou Faux... voir ci-dessous) pour afficher ces valeurs dans cette cellule même ( en passant j'aimerai que la cellule s'adapte en fonction du nombre de valeurs).

Les valeurs ressemble à ça :
checkbox1 "Conforme"
checkbox2 "Non conforme"
checkbox3 "Rayure"
checkbox4 "Rayure profonde"
checkbox5 "etc..."
' ...

Bonjour,

Je souhaite savoir une une cellule contient une partie d'une variable
pour cela j'utilise la fonction like mais le probleme c'est que je ne sais pas l'utiliser pour une variable.

j'ai testé la formualation suivante :
If Worksheets("Tableau").Range("A1").Value Like "*" & var1 & "*" Then ...

Merci d'avance !




Configuration: Windows 7 / Internet Explorer 9.0

Bonjour à tous,

Je voudrai faire un programme vba capable d'aller chercher des infos dans un classeur excel fermé situé sur le disque dur et que les données de ce classeur ce "colle" dans un autre fichier excel.

En clair, j'ai mon fichier "MC_essai" qui doit aller prendre des infos dans le fichier excel "MC_Plastique" et coller les infos de "MC_Plastique" dans "MC_essai" Cependant, je veux récupérer que les infos concernant un N° de semaine précis. Et je n'arrive pas à faire ce dernier point.

Quelqu'un pourrait il regarder mon programme et me dire ce qui ne va pas svp!

Merci, par avance, pour votre aide

Licoquelicot ...