Fonction de recherche de sélection et "Si" en VBA

Version imprimable

30/12/2019, 18h32
BMA2019

Fonction de recherche de sélection et "Si" en VBA

Bonjour,
je suis débutante en VBA et je dois modifier une macro de compta afin d'automatiser un maximum le remplissage de tableaux sur 2 feuilles d'un même fichier excel.
Je souhaite faire faire ce qui suit à la macro:
1/ dans une feuille nommée "Historique Facture", rechercher parmi une liste de Client en colonne B (de B4 à B300), une cellule qui contient le mot "IDCLIENT1".
2/ Si le contenu de la colonne G de la ligne contenant "IDCLIENT1" (ici donc G40) est égal à "COTIS1" alors:

3/ Sélectionner la valeur de la cellule A40 (ici pour l'exemple, c'est à dire la cellule A sur la même ligne que le mot"IDCLIENT1") de "Historique Facture"
4/ dans une autre feuille nommée "APPEL_COTISATION", rechercher parmi une liste de Client en colonne B (de B4 à B300), une cellule qui contient le mot "IDCLIENT1".
5/ Reporter la valeur de la cellule A40 sélectionnée dans la feuille "Historique Facture" dans la colonne F de la ligne ou se trouve "IDCLIENT1" de la feuille "APPEL_COTISATION".

Faire de même pour la colonne C et la colonne F de "Historique Facture" à savoir :

3'/ Sélectionner la valeur de la cellule C40 (ici pour l'exemple, c'est à dire la cellule C sur la même ligne que le mot"IDCLIENT1") de "Historique Facture"
4'/ dans une autre feuille nommée "APPEL_COTISATION", rechercher parmi une liste de Client en colonne B (de B4 à B300), une cellule qui contient le mot "IDCLIENT1".
5'/ Reporter la valeur de la cellule C40 sélectionnée dans la feuille "Historique Facture" dans la colonne F de la ligne ou se trouve "IDCLIENT1" de la feuille "APPEL_COTISATION".

puis

3"/ Sélectionner la valeur de la cellule F40 (ici pour l'exemple, c'est à dire la cellule C sur la même ligne que le mot"IDCLIENT1") de "Historique Facture"
4"/ dans une autre feuille nommée "APPEL_COTISATION", rechercher parmi une liste de Client en colonne B (de B4 à B300), une cellule qui contient le mot "IDCLIENT1".
5"/ Reporter la valeur de la cellule F40 sélectionnée dans la feuille "Historique Facture" dans la colonne F de la ligne ou se trouve "IDCLIENT1" de la feuille "APPEL_COTISATION".

Répéter pour chaque client :"IDCLIENTn" (de B4 à B300).

Je devrai me débrouiller pour les ordres qui se répètent mais peut-être qu'il y a une façon de programmer plus "propre" que de répéter à chaque fois.

J'espère que c'est clair ;-)
Merci +++ !!
30/12/2019, 19h13
Jean-Philippe André

Bonjour,

bienvenue sur DVP :salut:

pourrais-tu nous fournir le code de ta macro actuelle, qui nous servirait de base pour te faire des suggestions pour l'adapter à ton besoin ?

Merci
30/12/2019, 21h09
BMA2019

Citation:

Envoyé par Jean-Philippe André

Bonjour,

bienvenue sur DVP :salut:

pourrais-tu nous fournir le code de ta macro actuelle, qui nous servirait de base pour te faire des suggestions pour l'adapter à ton besoin ?

Merci

En fait pour le moment je n'ai une macro que sur la feuille "Historique facture", rien sur la feuille "APPEL_COTISATION"
30/12/2019, 21h42
Jean-Philippe André

OK,

mais as-tu un bout de code à nous fournir ?

Tu peux deja passer par l'enregistreur de macros :
https://fauconnier.developpez.com/tu...istreur-macro/

ça donne ça pour le moment mais sans la fonction "SI" et pour un seul IDCLIENT :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub test()
'
' test Macro
'
 
'
    Range("F4").Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC[-4],'Historique facture'!RC[-5]:R[246]C[2],2,FALSE)"
    Range("G4").Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC[-5],'Historique facture'!RC[-6]:R[246]C[1],4,FALSE)"
    Range("H4").Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC[-6],'Historique facture'!RC[-7]:R[246]C,7,FALSE)"
    Range("H5").Select
End Sub

03/01/2020, 09h54
Igloobel

Bonjour et bonne année à tous,

Peux-tu nous fournir des capures écrans de tes feuilles "Historique Facture" et "APPEL_COTISATION".

Ps : Captures avec des N° lignes et N° colonne inclus cela nous aidera à t'aider
07/01/2020, 16h21
BMA2019

1 pièce(s) jointe(s)

...désolée pour le retard de ma réponse, et mes meilleurs vœux !
Ci-joint les captures écran.
merci +++
09/01/2020, 13h04
Igloobel

2 pièce(s) jointe(s)

Bonjour,

Je sors les captures écran de ton document Docx au cas où d'autres intervenants voudraient participer à la discussion sans pouvoir ouvrir des documents tiers

Pièce jointe 529438

Pièce jointe 529441
10/01/2020, 11h43
pimpom81

Bonjour et meilleurs voeux 2020

Les formules à utiliser en vba sont plutôt des worksheetsfunction.
Exemple ci-dessous.

Code:

CLIENT = WorksheetFunction.VLookup(IDCLIENT, Worksheets("Historique Facture").Range("A1:G246"), 2, 0)