Bonjour, mon petit programme touche à sa fin
Mais me manque un code que j'ai commencer mais qui forcément ne fonctionne pas je suis nul
Feuille : Facture
Feuille : Devis_2018
Feuille : Facture_2018
Sur la feuille Facture en cellule B24 il y à un numéro qui commence soit par F (facture) ou par D (devis) par exemple F201800001
Mon but ; recopier plusieurs cellules en recherchant le même numéro en colonne "A" (que sa soit dans facture_2018 ou devis_2018) et copier les cellule de la ligne en question. Avec comme condition : SI le numéro en B24 commence par F alors il va copier les cellules qui sont dans la feuille Facture_2018 et SI sa commence par D dans Devis_2018 ...
Données à copier : Colonne par exemple : K - L - M - N (facture_2018 ou devis_2018 ils ont la même structure)
A coller : dans B13 - C13 - G13 - H13
voila un début de code enfin je pense
Sub Recopie_infos()
Dim FeFacture As Worksheet
Dim FeFacturier As Worksheet
Dim FeDevis As Worksheet
Dim Tbl
Dim Lig As Long
Dim I As Integer
Set FeFacture = Worksheets("Facture")
Set FeFacturier = Worksheets("Facturier_2018")
Set FeDevis = Worksheets("Devis_2018")
If MsgBox("Continuer ?", 36, "Confirmation") = vbYes Then
'Code à exécuter si OUI
'condition pour qu'il recherche si sa commence par F ou par D ...'
If UCase
Merci à vous
Mais me manque un code que j'ai commencer mais qui forcément ne fonctionne pas je suis nul
Feuille : Facture
Feuille : Devis_2018
Feuille : Facture_2018
Sur la feuille Facture en cellule B24 il y à un numéro qui commence soit par F (facture) ou par D (devis) par exemple F201800001
Mon but ; recopier plusieurs cellules en recherchant le même numéro en colonne "A" (que sa soit dans facture_2018 ou devis_2018) et copier les cellule de la ligne en question. Avec comme condition : SI le numéro en B24 commence par F alors il va copier les cellules qui sont dans la feuille Facture_2018 et SI sa commence par D dans Devis_2018 ...
Données à copier : Colonne par exemple : K - L - M - N (facture_2018 ou devis_2018 ils ont la même structure)
A coller : dans B13 - C13 - G13 - H13
voila un début de code enfin je pense
Sub Recopie_infos()
Dim FeFacture As Worksheet
Dim FeFacturier As Worksheet
Dim FeDevis As Worksheet
Dim Tbl
Dim Lig As Long
Dim I As Integer
Set FeFacture = Worksheets("Facture")
Set FeFacturier = Worksheets("Facturier_2018")
Set FeDevis = Worksheets("Devis_2018")
If MsgBox("Continuer ?", 36, "Confirmation") = vbYes Then
'Code à exécuter si OUI
'condition pour qu'il recherche si sa commence par F ou par D ...'
If UCase
Merci à vous