kariboox
XLDnaute Nouveau
Bonjour,
J'ai un petit souci de code vba et je ne trouve pas la solution convenable sur les forums.
But de l'opération : Copier le tableau C1:AC34 (qui peut avoir un nombre de lignes variable) pour chacune des températures allant de -20 à +45°C (en gros, copier le tableau initial 65 fois (1 ligne vide entre chaque tableau copié), de -20 à 45 en incrémentant les températures de +1 en colonne B)
Voici le code que j'ai commencé :
Le code est censé copier 65 fois le tableau précédent en haut, en incrémentant la valeur en colonne B (-20, -19, -17, ... 44, 45).
Le nombre de lignes du initial peut varier, d'ou (drl = RDP.Range("C" & Rows.Count).End(xlUp).Row) - repérage de la dernière ligne.
Ci joint le fichier avec l'onglet isolé
Pouvez vous m'éclairer sur le sujet des copie plage (en laissant 1 ligne vide entre les plages copiées) avec incrément des valeurs d'en face svp.
D'avance merci 🙂
J'ai un petit souci de code vba et je ne trouve pas la solution convenable sur les forums.
But de l'opération : Copier le tableau C1:AC34 (qui peut avoir un nombre de lignes variable) pour chacune des températures allant de -20 à +45°C (en gros, copier le tableau initial 65 fois (1 ligne vide entre chaque tableau copié), de -20 à 45 en incrémentant les températures de +1 en colonne B)
Voici le code que j'ai commencé :
Code:
Sub tempp()
Dim RDP As Worksheet
Set RDP = Sheets("Ripage des pinces")
'Dim prl As Long
Dim drl As Long
'prl = RDP.Range("C10").End(xlDown).Row
drl = RDP.Range("C" & Rows.Count).End(xlUp).Row
Dim Tmp As Range
Set Tmp = RDP.Range("B11:B" & drl)
Dim Wink As Range
Set Wink = RDP.Range("B" & prl & ":AC" & drl)
Dim Butee As Integer
Butee = Tmp.Rows.Count
Dim Vt As Integer
Dim t As Long
For t = -20 To 45
Cells(Rows.Count, "B").End(xlUp).Offset(1, 0).PasteSpecial
Next t
End Sub
Le code est censé copier 65 fois le tableau précédent en haut, en incrémentant la valeur en colonne B (-20, -19, -17, ... 44, 45).
Le nombre de lignes du initial peut varier, d'ou (drl = RDP.Range("C" & Rows.Count).End(xlUp).Row) - repérage de la dernière ligne.
Ci joint le fichier avec l'onglet isolé
Pouvez vous m'éclairer sur le sujet des copie plage (en laissant 1 ligne vide entre les plages copiées) avec incrément des valeurs d'en face svp.
D'avance merci 🙂