Discussion :

[jeff73230]

Bonjour à toutes et à tous,

je cherche dans un tableau la façon de remplir une colonne, en fonction d'une valeur contenue dans la colonne précédente.
Un visuel étant plus explicite qu'un long discours...


Je voudrais que la colonne C, se remplisse de x (ou autre texte ou chiffre) en fonction du contenu de la colonne B, sachant que le contenu de cette colonne B va varier, et ne sera pas toujours affiché par ordre croissant. Sur l'image jointe, le 2 est placé au dessus du 5, mais ce ne sera pas toujours le cas.

Si vous avez une idée sur la façon de procéder, je suis preneur, parceque malgré de multiples tentatives de macros, je bloque complet. j'ai essayé avec des colonnes intermédiaires, avec des rechercheV, mais rien n'y fait...

un ENORME MERCI par avance.

Jeff

[Franc]

Bonjour, voilà une macro qui fait le job.
Je parcours la colonne B à partir de B1 jusque la dernière cellule utilisée.
Quand je rencontre un chiffre, je mets un "X" dans la cellule adjacente en colonne C et puis autant de "X" vers le bas qu'indiqué par le chiffre.

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
21
Sub InsertX()
Dim i As Integer
Dim j As Integer
Dim X As Integer
Dim lastRow As Long
 
lastRow = Cells(Rows.Count, "B").End(xlUp).Row
 
 
For i = 1 To lastRow
    If Not IsEmpty(Cells(i, "B")) And IsNumeric(Cells(i, "B").Value) Then
        X = Cells(i, "B").Value
        Cells(i, "C").Value = "X"
        For j = i + 1 To i + X
            Cells(j, "C").Value = "X"
        Next j
 
    End If
Next i
 
End Sub

[jeff73230]

Bonjour, voilà une macro qui fait le job.
Je parcours la colonne B à partir de B1 jusque la dernière cellule utilisée.
Quand je rencontre un chiffre, je mets un "X" dans la cellule adjacente en colonne C et puis autant de "X" vers le bas qu'indiqué par le chiffre.

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
21
Sub InsertX()
Dim i As Integer
Dim j As Integer
Dim X As Integer
Dim lastRow As Long
 
lastRow = Cells(Rows.Count, "B").End(xlUp).Row
 
 
For i = 1 To lastRow
    If Not IsEmpty(Cells(i, "B")) And IsNumeric(Cells(i, "B").Value) Then
        X = Cells(i, "B").Value
        Cells(i, "C").Value = "X"
        For j = i + 1 To i + X
            Cells(j, "C").Value = "X"
        Next j
 
    End If
Next i
 
End Sub

Whaou !!!! GENIAAAAAAAAL !!!!!!!!!

Un ENOOOORME MERCI Franc, ça fonctionne NICKEL !!!! il me reste plus qu'à étudier chaque ligne de la macro ;-) mais c'est VRAIMENT TOP !!!!
Encore merciiiii.


Jeff