Rajouter 2 colonnes en fonction de criteres

steph57

XLDnaute Nouveau
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

XLDnaute Barbatruc
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
 

tototiti2008

XLDnaute Barbatruc
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 ;)
 

Discussions similaires

Réponses
17
Affichages
760