Discussion :

[Sokol]

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 :

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

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