Langage VBA pour sélectionner des données
ELG
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
Je travaille sur un tableau de commission d'agents, alimenté par une macro extraite d'un fichier Excel de facturation. Je voudrais inclure les réglements effectués sur ces factures via un autre fichier Excel. Je ne trouve pas la formule pour sélectionner sur ce fichier règlements les lignes corresondantes aux factures du fichier facturation pour les inclure sur les lignes du tableau Commission agents, en bonne et due place.
Merci de votre aide.
Je travaille sur un tableau de commission d'agents, alimenté par une macro extraite d'un fichier Excel de facturation. Je voudrais inclure les réglements effectués sur ces factures via un autre fichier Excel. Je ne trouve pas la formule pour sélectionner sur ce fichier règlements les lignes corresondantes aux factures du fichier facturation pour les inclure sur les lignes du tableau Commission agents, en bonne et due place.
Merci de votre aide.
A voir également:
- Langage VBA pour sélectionner des données
- Fuite données maif - Guide
- Trier des données excel - Guide
- Sauvegarde des données - Guide
- Langage binaire - Guide
- Comment sélectionner un message sur whatsapp pour y répondre - Guide
1 réponse
Bonjour,
Même s'il est possible de lire et écrire dans un classeur fermé, je te recommande de travailler les deux classeurs Excel ouverts.
La procédure n'est pas très complexe :
1- je mets la valeur que je cherche (dans l'exemple ce sera Classeur1Feuil1A1) dans une variable,
2- dans le classeur2 je cherche cette valeur.
3- si je la trouve je fais ceci sinon cela.
Pour cela, tu peux utiliser la méthode .find comme ceci :
Cordialement,
Franck P
Même s'il est possible de lire et écrire dans un classeur fermé, je te recommande de travailler les deux classeurs Excel ouverts.
La procédure n'est pas très complexe :
1- je mets la valeur que je cherche (dans l'exemple ce sera Classeur1Feuil1A1) dans une variable,
2- dans le classeur2 je cherche cette valeur.
3- si je la trouve je fais ceci sinon cela.
Pour cela, tu peux utiliser la méthode .find comme ceci :
Sub cherche()
Dim Trouve As Range
Dim Valeur_cherchee As String
Valeur_cherchee = Workbook("Classeur1").Sheets("Feuil1").Range("A1").Value
With Workbook("Classeur2").Sheets("Feuil1")
Set Trouve = .Columns(1).Cells.Find(what:=Valeur_cherchee) 'va chercher dans la colonne 1
If Trouve Is Nothing Then
MsgBox "Pas trouvé"
Else
MsgBox "Trouvé à l'adresse : " & Trouve.Address
End If
End With
Set Trouve = Nothing
End Sub
Cordialement,
Franck P
