1 pièce(s) jointe(s)
Boucle « IF- Else-do » Avec comme condition la longueur des inputs.
J’aimerais implémenter 3 conditions dans une boucle itérative de tell forme…If - Else-do , conditions sur la longueur des inputs. ( pour mieux comprendre , regarde le fichier attaché)
L’idée est d’avoir une macro de telle forme comme dessous.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| Dim bottomC As Integer
Dim Sh As Worksheet ' Déclare une feuille .. pour être sur d'agir sur la bonne feuille
Set Sh = ThisWorkbook.Sheets("Row data")
Dim MaCell As Range 'Définit une cellule
bottomC = Sh.Range("C" & Rows.Count).End(xlUp).Row
Dim y As Integer
For y = bottomC To 2 Step -1
Set MaCell = Sh.Cells(y, 3) ' MaCell est la cellule de la line en cours ( numéro y) dans colonne 1 (A)
If ………………… Then
MaCell.Offset(0, 3).Value = MaCell.Value
ElseIf MaCell = …………. Then
MaCell.Offset(0, 4).Value = MaCell.Value
ElseIf MaCell = …………. Then
MaCell.Offset(0, 5).Value = MaCell.Value
End If
Next |
