Bonjour,
Je me retrouve en face d'une macro qui envoie [verticalement] une série de nombre dans des cellules rangées dans des plages [horizontales] déterminées.
J'essaye de changer l'ordre de remplissage des plages de sorte que l'envoie se fasse horizontalement (au lieu de verticalement), mais que les plages demeurent rangées horizontalement.
En fait, je n'arrive pas à définir la suite des instructions à mettre en œuvre pour aboutir au résultat recherché, ce serait sympa si quelqu'un aurait une idée là dessus, je joins un fichier illustratif.
Cordialement, Kim.
Je me retrouve en face d'une macro qui envoie [verticalement] une série de nombre dans des cellules rangées dans des plages [horizontales] déterminées.
VB:
For i = 1 To Sheets("Feuil3").Range("A" & Rows.Count).End(xlUp).Row
l = 0
c = 0
Do Until r.Offset(l, c).Value = ""
If l < 7 Then
l = l + 1
Else
l = 0
c = c + 1
End If
Loop
r.Offset(l, c) = i
Next
En fait, je n'arrive pas à définir la suite des instructions à mettre en œuvre pour aboutir au résultat recherché, ce serait sympa si quelqu'un aurait une idée là dessus, je joins un fichier illustratif.
Cordialement, Kim.