Bonjour à tous
J'utilise depuis peu le langage VBA dans le cadre professionnel.
J'ai débuté l'écriture d'une macro mais je bloque sur l'optimisation de mon code.
Mon souci est le suivant :
Je dispose d'une base de données clients actualisée de manière hebdomadaire.
Je ne dois en sélectionner que certains, éligibles à un certain statut.
J'ai d'abord procédé à un premier tri, par le code suivant, pour ceux qui sont de manière évidente non éligibles :
Do
If Cells.Find(What:="supermarche") Is Nothing Then
Exit Do
Else
Cells.Find(What:="supermarche").Activate
Selection.EntireRow.Delete
End If
Loop
Néanmoins, je ne peux utiliser ce code a l'infini.
Je dispose par ailleurs d'un autre onglet qui est un fichier de clients contractuellement éligibles.
Est il possible de créer une recherche dans ma base de données des ref clients qui apparaissent dans le fichier annexe puis copier toute la ligne dans une nouvelle feuille
Pour ceux qui restent et qui sont inconnus :
créer une msgbox qui me demande pour chacune des references son eligibilité :
- si oui-->copier coller la ligne dans la nouvelle feuille+ ajouter la reference au fichier annexe
- si non-->supprimer la ligne entière.
Je planche dessus depuis 4 jours, j'espère avoir été assez claire
merci beaucoup de votre aide
J'utilise depuis peu le langage VBA dans le cadre professionnel.
J'ai débuté l'écriture d'une macro mais je bloque sur l'optimisation de mon code.
Mon souci est le suivant :
Je dispose d'une base de données clients actualisée de manière hebdomadaire.
Je ne dois en sélectionner que certains, éligibles à un certain statut.
J'ai d'abord procédé à un premier tri, par le code suivant, pour ceux qui sont de manière évidente non éligibles :
Do
If Cells.Find(What:="supermarche") Is Nothing Then
Exit Do
Else
Cells.Find(What:="supermarche").Activate
Selection.EntireRow.Delete
End If
Loop
Néanmoins, je ne peux utiliser ce code a l'infini.
Je dispose par ailleurs d'un autre onglet qui est un fichier de clients contractuellement éligibles.
Est il possible de créer une recherche dans ma base de données des ref clients qui apparaissent dans le fichier annexe puis copier toute la ligne dans une nouvelle feuille
Pour ceux qui restent et qui sont inconnus :
créer une msgbox qui me demande pour chacune des references son eligibilité :
- si oui-->copier coller la ligne dans la nouvelle feuille+ ajouter la reference au fichier annexe
- si non-->supprimer la ligne entière.
Je planche dessus depuis 4 jours, j'espère avoir été assez claire
merci beaucoup de votre aide