mCellule2 Column de 1 a 13

**pilounet54** · 09/12/2013, 17h21

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

Code :

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

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

**EngueEngue** · 09/12/2013, 17h26

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.

**Oliv-** · 09/12/2013, 17h26

Salut,
Avec des phrases complètes pour commencer !

**EngueEngue** · 09/12/2013, 17h30

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

Code :

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

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

**Oliv-** · 09/12/2013, 17h33

ou comme cela

Code :

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

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