Macro excel tri et modification de cellule
david79230
Messages postés
9
Date d'inscription
Statut
Membre
Dernière intervention
-
Le Pingou Messages postés 12249 Date d'inscription Statut Contributeur Dernière intervention -
Le Pingou Messages postés 12249 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour à tous,
j'ai besoin de coup de main pour une macro . Alors j'explique j'ai un tableau excel rempli de données avec des filtres.
Donc je veux que la macro filtre une colonne suivant une lettre puis qu'elle note quelque chose (toujours la même chose) dans la colonne W jusqu'à ce que les données soit finies.
Donc le tri c'est bon , et ma macro note bien ce que je veux dans la colonne W mais ca le note sur les lignes triées mais aussi sur les autres (arghhhh).
Voici le code de la macro
ActiveSheet.Range("$A$1:$V$1534").AutoFilter Field:=3, Criteria1:="=n*", _
Operator:=xlOr, Criteria2:="=rn*"
Range("C2").Select
Do While Not (IsEmpty(ActiveCell))
ActiveCell.Offset(0, 20).Select
ActiveCell = "SAV"
ActiveCell.Offset(1, -20).Select
Loop
Donc je fais un offset de 20 car je pars de la colonne "C"
Merci de votre aide
j'ai besoin de coup de main pour une macro . Alors j'explique j'ai un tableau excel rempli de données avec des filtres.
Donc je veux que la macro filtre une colonne suivant une lettre puis qu'elle note quelque chose (toujours la même chose) dans la colonne W jusqu'à ce que les données soit finies.
Donc le tri c'est bon , et ma macro note bien ce que je veux dans la colonne W mais ca le note sur les lignes triées mais aussi sur les autres (arghhhh).
Voici le code de la macro
ActiveSheet.Range("$A$1:$V$1534").AutoFilter Field:=3, Criteria1:="=n*", _
Operator:=xlOr, Criteria2:="=rn*"
Range("C2").Select
Do While Not (IsEmpty(ActiveCell))
ActiveCell.Offset(0, 20).Select
ActiveCell = "SAV"
ActiveCell.Offset(1, -20).Select
Loop
Donc je fais un offset de 20 car je pars de la colonne "C"
Merci de votre aide
A voir également:
- Macro excel tri et modification de cellule
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Word et excel gratuit - Guide
- Comment faire un tri personnalisé sur excel - Guide
- Suivi de modification word - Guide
- Excel cellule couleur si condition texte - Guide
2 réponses
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
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
