Discussion :

[BMA2019]

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 +++ !!

[Jean-Philippe André]

Bonjour,

bienvenue sur DVP

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

[BMA2019]

Bonjour,

bienvenue sur DVP

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"

[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/

[BMA2019]

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

Code :

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

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

[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