Discussion :

[gangsterus]

Bonjour,

J'ai essayé de m'inspirer de codes que j'ai trouvés sur ce forum mais sans succès. Je cherche à remplacer le contenu des cellules d'une base de donnée avec une condition:

Dans la colonne D, lorsque le contenu est "Toto" et que le contenu de la cellule d'après est "R3101", je souhaite remplacer "Toto" par "Tata".

J'ai donc mis ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
 
Sub Test
 
    Dim Plage As Range
    Dim Cel As Range
 
    With ActiveSheet
 
        Set Plage = Range("D:D")
 
    End With
 
    For Each Cel In Plage
 
        If Cel.Value = "Toto" And Cel.Offset(, 1).Value = "R3101" Then ActiveCell.Value = "Tata"
 
    Next Cel
 
End Sub

Mais ma macro fait scotcher le pc et au bout du compte, les cellules en question ne sont même pas remplacées. Je suppose que le pc met longtemps à appliquer la condition à chaque cellule de la colonne, mais je ne vois pas ce qui pourrait aller plus vite et surtout qui ce qui marcherait!

Merci par avance pour vos réponses

[MacKay77]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Test
 
    Dim Plage As Range
    Dim Cel As Range
 
    With ActiveSheet
 
        Set Plage = Range("D1:D" & Range("D" & Rows.Count).End(xlUp).Row)
 
    End With
 
    For Each Cel In Plage
 
        If Cel.Value = "Encadrement Centre gestion experts" And Cel.Offset(0, 1).Value = "R3101" Then ActiveCell.Value = "CGE Toulouse"
 
    Next Cel
 
End Sub

Ca donne quoi comme ça?

[Slooby]

Quand tu dis

cellule d'après

tu parles celle juste en dessous de la cellule active, ou celle à sa droite ?

Car tu fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Offset(0,1)

et dans ce cas tu regardes la cellule à droite, pas celle juste en dessous, qui serait plutôt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Offset(1,0)

Slooby

[gangsterus]

Merci pour le premier retour.
Il s'agit bien de la cellule de droite, juste après.
J'ai essayé le code de MacKay77 mais ça ne donne rien de plus. La macro ne plante pas mais la valeur ne change pas.

[joe.levrai]

Bonjour,

ça ne peut pas fonctionner car tu écris toujours la même valeur dans la même cellule : la cellule qui est sélectionnée sur la feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Then ActiveCell.Value = "CGE Toulouse"

remplacer ActiveCell par ta variable Cel


ta procédure est doublement longue :

- tu n'a pas désactivé le rafraichissement d'écran (Application.ScreenUpdating) durant le traitement
- tu traites TOUTE la colonne D, au lieu de traiter uniquement la partie de ta colonne qui contient des données, il faut mieux définir ta plage (en utilisant UsedRange par exemple .... tout dépend du contexte de ton fichier et de l'agencement des données)


Par ailleurs, tu gagnerais encore en performance en utilisant un filtre automatique (Autofilter) appliqué en colonne D (condition = "toto") et en colonne E (condition = "R3101") pour ensuite faire un remplacement de valeurs uniquement sur les lignes filtrées

[unparia]

Bonjour,
une "légèreté" et une erreur dans le code de MacKay77
corriger ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Plage As Range
    Dim Cel As Range
 
    With ActiveSheet
 
        Set Plage = Range("D1:D" & Range("D" & Rows.Count).End(xlUp).Row)
 
    End With
 
    For Each Cel In Plage.cells ' ne pas être léger. Préciser cells
 
        If Cel.Value = "Encadrement Centre gestion experts" And Cel.Offset(0, 1).Value = "R3101" Then cel.Value = "CGE Toulouse" ' car c'est cette cellule cel, que l'on veut modifier
 
    Next Cel

[joe.levrai]

J'ajoute que le bloc "With ActiveSheet" est totalement superflu pour deux raisons :

- le Range du bloc n'y est pas rattaché, il manque le point ;
- si on avait mis le point ... ben ça sert à rien de toute façon puisqu'on est sur la feuille active quoi qu'il arrive, même si le point est omis


donc le bloc peut être supprimé, ou alors modifié pour spécifier la feuille (par son nom, son codename, son index, par variable etc...) autrement qu'un objet actif


Et quitte à pousser l'optimisation, la variable Plage est inutile, on ne l'utilise qu'une fois

au lieu de faire un Set Plage = Range(MonTruc) pour ensuite faire un For Each Cel in Plage.Cells .... autant directement faire For Each Cel in Range(MonTruc).Cells
Et pour conclure, je reviens sur le filtre automatique, solution reine pour ton problème

[casefayere]

Bonsoir,
cellule à droite "Offset(0,1)", je confirme

Quant à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For Each Cel In Plage
 
        If Cel.Value = "Encadrement Centre gestion experts" And Cel.Offset(0, 1).Value = "R3101" Then ActiveCell.Value = "CGE Toulouse"
 
    Next Cel

C'est quoi " ActiveCell.Value"