besoin aide macro

[Mitch]

Bonjour je n'arrive pas a decaler mes cellules dans (suivi appro) je veut demarrer en cellule D puis sauter une cellule(F) etc
voici ma macro

Sub Bouton8_Clic()
Dim Plage, d As Range
Plage = Array("E3", "E5", "E7", "E9", "I9", "E11", "E13", "I13", "E15", "E17", "E19")
Set d = Sheets("BDD").Range("A65536").End(xlUp).Offset(1, 0)
For t = 0 To UBound(Plage)
d.Offset(0, t) = Range(Plage(t))
Next
Plage = Array("E3", "E9", "B24", "F24", "J24", "B27", "F27", "K9")
Set d = Sheets("suivi appro").Range("D65536").End(xlUp).Offset(1, 0)
For t = 0 To UBound(Plage)
d.Offset(0, t) = Range(Plage(t))
Next
End Sub

 

[Pierrot93]

Re : besoin aide macro

Bonjour,

pas tout compris du résultat attendu... regarde ceci, si cela peut t'aider... Exécute ce code pas à pas (F8 dans l'éditeur vba)

Dim d As Range
For Each d In Range("E3,E5,E7,E9,I9,E11,E13,I13,E15,E17,E19")
    d.Select
Next d

bon après midi
@+

 

[Mitch]

Re : besoin aide macro

Set d = Sheets("suivi appro").Range("D65536").End(xlUp).Offset(1, 0) me range les cellules sur une ligne en partant de la D ,exemple D,E,F,G,etc et surtout sur la derniere ligne rempli parfait mais en fait ce que je voudrais c'est qu'elle saute une cellule sur deux ,exemple D,F,H,J, etc

 

[Pierrot93]

Re : besoin aide macro

Re,

pour un pas de 2 colonnes sur la ligne 1...

Dim i As Byte
For i = 4 To 26 Step 2
    Cells(1, i).Select
Next i

 

[Mitch]

Re : besoin aide macro

Oulala je place ça ou

 

[Pierrot93]

Re : besoin aide macro

Re,

euhh.. dans ton code... mais j'ai toujours pas compris ou tu voulais en venir exactement... Mets peut être en pièce jointe un tout peti fichier représentant bien le problème posé et le résultat attendu... Cela sera sans doute plus facile pour t'aider....

 

[Mitch]

Re : besoin aide macro

Merci d'abord pour ta patience
dans la feuille clients quand je fait enregistrer je voudrais que le nom,ville,DV,PVC,Alu,autre,autre et montant ce place dans la feuille suivi appro cellule D,F,H,J,L,N,P,S
excuse pour le retard mon fichier etait trop lourd

 

[gilbert_RGI]

Re : besoin aide macro

bonjour;

comme ceci peut-être ?

Sub test()
    Dim Plage, d As Range
    Plage = Array("E3", "E5", "E7", "E9", "I9", "E11", "E13", "I13", "E15", "E17", "E19")
    Set d = Sheets("BDD").Range("A65536").End(xlUp).Offset(1, 0)
    For t = 0 To UBound(Plage)
        d.Offset(0, t) = Range(Plage(t))
    Next
    Plage = Array("E3", "E9", "B24", "F24", "J24", "B27", "F27", "K9")
    Set d = Sheets("suivi appro").Range("D65536").End(xlUp).Offset(1, 0)
    i = 2
    For t = 0 To UBound(Plage)
 
        d.Offset(i, 0) = Range(Plage(t))
      i = i + 2
    Next
End Sub

ou comme celà

Sub test()
    Dim Plage, d As Range
    Plage = Array("E3", "E5", "E7", "E9", "I9", "E11", "E13", "I13", "E15", "E17", "E19")
    Set d = Sheets("BDD").Range("A65536").End(xlUp).Offset(1, 0)
    For t = 0 To UBound(Plage)
        d.Offset(0, t) = Range(Plage(t))
    Next
    Plage = Array("E3", "E9", "B24", "F24", "J24", "B27", "F27", "K9")
    Set d = Sheets("suivi appro").Range("D65536").End(xlUp).Offset(1, 0)
    i = 0
    For t = 0 To UBound(Plage)
  
        d.Offset(0, i) = Range(Plage(t))
      i = i + 2
    Next
End Sub

 

[Pierrot93]

Re : besoin aide macro

Re, bonjour Gilbert

Aarf, pas 2007, je ne peux ouvrir ton fichier....

@+

 

[Mitch]

Re : besoin aide macro

Super gilbert_RGI j'ai pris ta 2eme soluce juste encore un petit souci j'ai mal compte la cellule K9 doit laisser 2 cellule vide c'est possible

 

[gilbert_RGI]

Re : besoin aide macro

oui comme ceci peut-être (bidouille)

Sub test()
    Dim Plage, d As Range
    Plage = Array("E3", "E5", "E7", "E9", "I9", "E11", "E13", "I13", "E15", "E17", "E19")
    Set d = Sheets("BDD").Range("A65536").End(xlUp).Offset(1, 0)
    For t = 0 To UBound(Plage)
        d.Offset(0, t) = Range(Plage(t))
    Next
    Plage = Array("E3", "E9", "B24", "F24", "J24", "B27", "F27", " ", "K9")
    Set d = Sheets("suivi appro").Range("D65536").End(xlUp).Offset(1, 0)
    i = 0
    For t = 0 To UBound(Plage)
  On Error Resume Next
        d.Offset(0, i) = Range(Plage(t))
      i = i + 2
    Next
End Sub

edit: bonjour Pierrot

 

[gilbert_RGI]

Re : besoin aide macro

une autre astuce

Sub test()
    Dim Plage, d As Range
    Plage = Array("E3", "E5", "E7", "E9", "I9", "E11", "E13", "I13", "E15", "E17", "E19")
    Set d = Sheets("BDD").Range("A65536").End(xlUp).Offset(1, 0)
    For t = 0 To UBound(Plage)
        d.Offset(0, t) = Range(Plage(t))
    Next
    Plage = Array("E3", "E9", "B24", "F24", "J24", "B27", "F27", "K9")
    Set d = Sheets("suivi appro").Range("D65536").End(xlUp).Offset(1, 0)
    i = 0
    For t = 0 To UBound(Plage)
    'MsgBox Sheets("BDD").Range(Plage(t)).Address
 If Sheets("BDD").Range(Plage(t)).Address = "$K$9" Then i = i + 1
        d.Offset(0, i) = Range(Plage(t))
      i = i + 2
    Next
End Sub

 

[gilbert_RGI]

Re : besoin aide macro

le fichier d'essai en xls 😱

 

[Mitch]

Re : besoin aide macro

c'est presque ça mais ça me fait sauter 3 cellules au lieu de 2

 

[gilbert_RGI]

Re : besoin aide macro

c'est presque ça mais ça me fait sauter 3 cellules au lieu de 2

voir la deuxième solution