Rajouter 2 colonnes en fonction de criteres

steph57 · 4 Décembre 2012

Bonjour le forum

j'ai fais une petite macro toute simple,mais elle ne fonctionne pas.
C'est a propos du if

i = 10
While Cells(i, 1) <> ""
If Cells(i, 1) = "1" And Cells(i, 2) = "2" And Cells(i, 4) = "3" _
And Cells(i, 6) = "4" Then Cells(i, 11) = "5"

jusque la pas de probleme mais il faut que je rajoute cells(i,12)="6" et la probleme
quand je rajoute a la suite Then Cells(i, 11) = "5" and cells(i,12)="6"
merci de m'aiguiller

tototiti2008 · 4 Décembre 2012

Re : Rajouter 2 colonnes en fonction de criteres

Bonjour steph,

Si tu n'as qu'une action à réaliser, tu peux la mettre directement derrière le Then comme dans ton exemple
Si tu as plusieurs actions à réaliser, il est conseillé de faire un bloc If / End If dans le quel on a l'ensemble des actions

un truc du genre

Code:

i = 10
While Cells(i, 1) <> ""
If Cells(i, 1) = "1" And Cells(i, 2) = "2" And Cells(i, 4) = "3" _
And Cells(i, 6) = "4" Then 
Cells(i, 11) = "5"
Cells(i, 12) = "6"
end if

sinon au passage, si tu veux affecter des valeurs numériques à tes cellules, tu peux (c'est même conseillé) te passer des guillemets

Code:

Cells(i, 11) = 5

steph57 · 4 Décembre 2012

Re : Rajouter 2 colonnes en fonction de criteres

Merci beaucoupl e probleme c'est que j'ai plusieurs if a la suite cela va m'obliger a rajouter end if a la fin de chaques if
mais en tout cas ça marche,si tu avais une autre solution je prends

tototiti2008 · 4 Décembre 2012

Re : Rajouter 2 colonnes en fonction de criteres

Re,

Beaucoup moins lisible mais ça devrait marcher

Code:

If Cells(i, 1) = "1" And Cells(i, 2) = "2" And Cells(i, 4) = "3" _
And Cells(i, 6) = "4" Then Cells(i, 11) = "5" : Cells(i, 12) = "6"

Tu repensera à moi quand tu devras relire ton code pour le déboguer

steph57 · 4 Décembre 2012

Re : Rajouter 2 colonnes en fonction de criteres

Merci beaucoup et à bientot

Rajouter 2 colonnes en fonction de criteres

steph57

XLDnaute Nouveau

tototiti2008

XLDnaute Barbatruc

steph57

XLDnaute Nouveau

tototiti2008

XLDnaute Barbatruc

steph57

XLDnaute Nouveau

Discussions similaires