[Excel] Aide creation de macro pour novice
Fermé
elhijo
-
5 juin 2006 à 20:24
Kobaya Messages postés 282 Date d'inscription vendredi 28 mai 2004 Statut Membre Dernière intervention 10 janvier 2008 - 8 juin 2006 à 22:25
Kobaya Messages postés 282 Date d'inscription vendredi 28 mai 2004 Statut Membre Dernière intervention 10 janvier 2008 - 8 juin 2006 à 22:25
A voir également:
- [Excel] Aide creation de macro pour novice
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Si et excel - Guide
- Creation compte gmail - Guide
1 réponse
Kobaya
Messages postés
282
Date d'inscription
vendredi 28 mai 2004
Statut
Membre
Dernière intervention
10 janvier 2008
214
5 juin 2006 à 23:11
5 juin 2006 à 23:11
Salut elhijo,
Le plus simple serait d'utiliser la fonction Equiv() (Match dans la version anglaise), qui renverra #N/A pour les noms qui ne figurent pas dans ta liste.
Créer la liste des noms de personnes de ton équipe dans une feuille et importe le fichier csv dans un autre.
Le code qui te permettra de détruire les lignes pourrait ressembler à ça :
Le plus simple serait d'utiliser la fonction Equiv() (Match dans la version anglaise), qui renverra #N/A pour les noms qui ne figurent pas dans ta liste.
Créer la liste des noms de personnes de ton équipe dans une feuille et importe le fichier csv dans un autre.
Le code qui te permettra de détruire les lignes pourrait ressembler à ça :
Sub DetruireLigne() Dim varCell As Variant ' pour accelérer le traitement, désactiver le rafraichissement écran Application.ScreenUpdating = False ' placer le curseur sur la première ligne de données Do Until IsEmpty(ActiveCell.Value) varCell = ActiveCell.Value If IsError(varCell) Then ActiveCell.EntireRow.Delete shift:=xlShiftUp Else ActiveCell.Offset(1, 0).Select End If Loop Application.ScreenUpdating = True MsgBox "Fin du traitement", vbInformation End Sub
7 juin 2006 à 14:46
Merci encore et bonne journée.
8 juin 2006 à 22:25
=EQUIV(ValeurAChercher,ZoneDeRecherche,Type)
où
ValeurAChercher :
une cellule unique, ex. A1 qui contient un nom à contrôler
ZoneDeRecherche
une collection de cellules contigues, ex. A1:A625 qui contient la liste des noms autorisés
Type
0 pour rechercher excactement la même valeur
1 pour rechercher une valeur approchante