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