mCellule2 Column de 1 a 13

Version imprimable

bonjour je souhaiterai de la colonne 1 jusquà la colonne 13 comment svp j’écris

Code:

1
2
3
4
5
6
7
8
9
10
  For Each mCellule2 In Target
 
      If (mCellule2.Column = 5 Or _
            mCellule2.Column = 6 Or _
            mCellule2.Column = 8 Or _
            mCellule2.Column = 9) And _
            mCellule2.Row > 1 Then
           traiter_cellule1 mCellule2
           ' MsgBox ("ok")
     End If

bonne soirée à tous

09/12/2013, 17h26
EngueEngue

En général avec le clavier : "de la colonne 1 jusqu'à la colonne 13"
Mais sinon tu peux aussi l'écrire avec un stylo ou avec un crayon. Pour finir il est possible d'écrire en mettant son doigt dans son nez puis en écrivant sur une vitre... Mais à moins que tu sois très enrhumé tu auras du mal à écrire "de la colonne 1 jusqu'à la colonne 13"

Si tu veux une réponse.. Passe plus que 15 secondes à faire un post et tâche de donner un sens à ta question.
09/12/2013, 17h26
Oliv-

Salut,
Avec des phrases complètes pour commencer ! :P

Sinon si toi être intelligent... toi pouvoir penser ça:

Code:

1
2
3
4
5
6
For Each mCellule2 In Target
      If mCellule2.Column <= 13 then
           traiter_cellule1 mCellule2
           ' MsgBox ("ok")
     End If
Next mcellule2

ou comme cela

Code:

1
2
3
4
5
6
7
8
9
  For Each mCellule2 In Target
 
      select case mCellule2.Column 
               case 1 to 13 
                     if mCellule2.Row > 1 Then
                          traiter_cellule1 mCellule2
                     end if
      end select
      next mCellule2

09/12/2013, 17h35
EngueEngue

Oliv' tu connais des row < 1 ?
09/12/2013, 17h39
pilounet54

mcellule

merci à tous, et pour ceux qu n'aurai pas compris c'est qui ne le sont pas ..
cordialement :ccool:
09/12/2013, 17h40
EngueEngue

é ce ki kompren il son jenti ?
09/12/2013, 17h42
Oliv-

Citation:

Envoyé par EngueEngue

Oliv' tu connais des row < 1 ?

Tu veux dire Column ? non mais s'il veut adapter à un autre cas...

et puis il y avait une condition sur row
09/12/2013, 17h43
EngueEngue

Je n'arrive pas à concevoir des cas où un target.row ou un target.column seront < 1, mais je vais y réfléchir :)

Citation:

Envoyé par EngueEngue

Je n'arrive pas à concevoir des cas où un target.row ou un target.column seront < 1, mais je vais y réfléchir :)

Dommage !
Code:

1 2 3 4 5 6 7 8 9 For Each mCellule2 In Target select case mCellule2.Column case 5 to 13 if mCellule2.Row = 1 Then traiter_cellule1 mCellule2 end if end select next mCellule2
est ce que tu comprends à présent ?

09/12/2013, 17h49
EngueEngue

Euh... Je comprenais aussi avant! Mais j'insiste sur le fait que tester que le row>1 est inutile puisqu'il l'est par définition :)

Arrives tu à voir les trois lapalissades ?

Code:

1
2
3
4
5
6
7
8
9
For Each mCellule2 In Target
      If mCellule2.Column <= 13 then
 
if "toto"= "toto" and mCellule2.row>1 and isnumeric(1) then 'and ....
traiter_cellule1 mCellule2
         ' MsgBox ("ok")
end if
     End If
Next mcellule2

09/12/2013, 18h03
EngueEngue

hahaha après relecture je vois que je suis un bouffon; tu as raison.

Engue...:boulet: