Discussion :

[janigrel]

Bonjour, je vais devoir trouver une macro (à insérer dans un module général) pour effectuer cette opération qui semble compliquée pour moi, débutant en VBA :

Dans mon tableau, à chaque fois qu'une cellule de ma plage K3:K2000 contient soit la valeur "GR", soit la valeur "GE", alors je dois inscrire la valeur "NON" sur la même ligne, dans les colonnes 45 à 105 : toutes les 5 colonnes de la 45 à la 105 incluses (45 To 105 Step 5).
Sinon (si ce n'est pas l'une des 2 valeurs "GE" ou "GR"), alors il ne doit rien être inscrit dans les colonnes 45, 50, 55 ..., 105.

Avec la fonction IF, je ne connais pas la syntaxe pour conditionner avec les 2 valeurs "GR" ou "GE"...
Quelqu'un peut-il m'aider à rédiger ce code SVP ?

D'avance merci.
Cdt

[XLRATOR]

Bonsoir ou Bonjour tout dépend de vous,
Essayez avec la syntaxe qui suit:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub AfficherEtat()
Dim rng As Range, i As Integer, SpecCell As Range
Set SpecCell = Range("K3:K2000").SpecialCells(xlCellTypeConstants) ' Remplacez SpecialCells(xlCellTypeConstants)par SpecialCells(xlCellTypeFormulas)si les cellules de la colonne K sont des formules
Application.ScreenUpdating = False 'Arrête la mise à jour de l'affichage sur écran jusqu'à la fin de la routine, ça vous fait gagner du temps
For i = 45 To 105 Step 5
For Each rng In SpecCell.Cells
If rng.Value = "GR" Or rng.Value = "GE" Then
Cells(rng.Row, i).Value = "Non"
Else
Cells(rng.Row, i).Value = ""
End If
Next
Next
End Sub

Et veillez à changer SpecialCells(xlCellTypeConstants) par SpecialCells(xlCellTypeFormulas)si les cellules de la colonne K sont des formules.
En effet, pour des raisons de performance seules les cellules dont les contenus sont des valeurs constantes / ou des formules seraient affectées par le code.

Bonne continuation.
Karim.

[janigrel]

Salut Karim,

Merci pour ton code que j'ai testé.
Le problème est que j'ai déjà d'autres valeurs que "NON" dans les colonnes 45 à 105, et qu'avec le traitement du ...Else Cells(rng.Row, i).Value = "", cela m'efface toutes les données inscrites dans ces colonnes.
Ne peut-on pas prévoir de simplement mettre fin au traitement après Else au lieu d'inscrire "" dans les colonnes non concernées par le "NON"?
Ou alors as-tu une autre solution pour ne pas toucher aux valeurs de ces colonnes?

Merci d'avance.
Cordialement.

[SfJ5Rpw8]

bonjour,

la clause Else n'est pas obligatoire dans un "if" ... enlève la ligne Else et tout le code entre Else et Endif..

[XLRATOR]

Bonjour janigrel,

Ne peut-on pas prévoir de simplement mettre fin au traitement après Else au lieu d'inscrire "" dans les colonnes non concernées par le "NON"?

Bien évidement, il suffit d'omettre les lignes 9 et 10 du code.

Bon courage.
Karim

[janigrel]

Merci à tous, le résultat est OK.

Je dois à présent résoudre une autre contrainte liée à un code inscrit sur ma feuille, et qui colore les lignes en fonction de certaines valeurs, et que les "NON" qui viennent d'être reportés viennent en perturber le bon fonctionnement...
La discussion ouverte sur ce sujet est visible ici => http://www.developpez.net/forums/d14...s/#post7746394

A bientôt peut-être et merci pour votre précieuse aide.

Cordialement.