Macro excel tri et modification de cellule
Fermé
david79230
Messages postés
9
Date d'inscription
dimanche 22 novembre 2009
Statut
Membre
Dernière intervention
18 novembre 2014
-
8 nov. 2013 à 11:16
Le Pingou Messages postés 12240 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 11 février 2025 - 8 nov. 2013 à 22:33
Le Pingou Messages postés 12240 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 11 février 2025 - 8 nov. 2013 à 22:33
A voir également:
- Macro excel tri et modification de cellule
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Excel cellule couleur si condition texte - Guide
- Si et excel - Guide
- Suivi de modification word - Guide
- Word et excel gratuit - Guide
2 réponses
via55
Messages postés
14512
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 janvier 2025
2 741
8 nov. 2013 à 11:34
8 nov. 2013 à 11:34
Bonjour
A mon sens il serait plus logique avec une boucle et une condition de tester toutes les lignes pour ajouter W à celles qui ont la lettre recherchée en colonne x et après de faire filtrer avec le critère W
Cdlmnt
A mon sens il serait plus logique avec une boucle et une condition de tester toutes les lignes pour ajouter W à celles qui ont la lettre recherchée en colonne x et après de faire filtrer avec le critère W
Cdlmnt
Le Pingou
Messages postés
12240
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
11 février 2025
1 457
Modifié par Le Pingou le 8/11/2013 à 22:37
Modifié par Le Pingou le 8/11/2013 à 22:37
Bonjour,
Essayer de remplacer votre code par celui-ci :
Salutations.
Le Pingou
Essayer de remplacer votre code par celui-ci :
Dim Var As Variant, Cel As Range
ActiveSheet.Range("$A$1:$V$1534").AutoFilter Field:=3, Criteria1:="=n*",Operator:=xlOr, Criteria2:="=rn*"
For Each Cel In Range([C2], Cells(Rows.Count, "C")).SpecialCells(xlCellTypeVisible)
If Cel = "" Then Exit Sub
Var = Var & " " & Cel
Cel.Offset(0, 20) = "SAV"
Next Cel
Salutations.
Le Pingou