chercher feuille en fonction d'un select case
j'aimerai pouvoir recopier différentes cellules en fonction d'un nom et les recopier dans 1 autre classeur dans la feuille correspondante sinon en créer une et recopier les lignes les 1 après les autres.
que faire ? do while, et comment associer un select case ???
voici le code que j'ai commencé à écrire
' Relevé les dossiers pour suivi commissions artisans
' relever les dossiers <> des etats "Abandonné","Dossier clos","Nouveau" et pour chaque nom entreprise ,sélectionner les numDossier, dateCreation, dateAffectation, nomClient,
'
' et les recopier dans le classeur "Relevé des activités .xls"
' dans la feuille correspondante au nom d'entreprise
'For Each c In Range("nomEntreprise")
If .Cells(ligne_dossier, etat).Value <> "Abandonné" Or _
.Cells(ligne_dossier, etat).Value <> "Dossier clos" Or _
.Cells(ligne_dossier, etat).Value <> "Nouveau" Or _
Then
Select Case .Cells(ligne_dossier, nomEntreprise).Value
Case "3D AGENCEMENT": Call remplissage_suivi and _
Worksheets("OngletA").Activate paste.(a11)