P
Pascale
Guest
Bonsoir le forum,
Désolé pour ce doublon, mais mon soucis de copier/coller une plage a légèrement évolué.Maintenant j'ai une erreur 1004 'Impossible de copier coller, les cellules sont de tailles différentes. 'MENTEUR!!!'
voici mon code:
For cx = 4 To 15 'boucle sur tous les onglets
'
If Range('DD' & 1009 + cx).Value = 1 Then
ct = ct + 1
Range(Sheets(cx).Name & '!A1:AQ43').Copy
Sheets('Monfichier').Select
With ActiveSheet.Range('A1') 'la première cellule de destination
.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With
End If
'
Next cx 'prochain onglet de la boucle
le premier Paste me 'formate' bien mes cellules: fusion, couleur, Contour. Après vérification, mes cellules ont la bonne tailles.
Où est l'erruer?
Merci pour vos lumières.
@+
Pascale
Désolé pour ce doublon, mais mon soucis de copier/coller une plage a légèrement évolué.Maintenant j'ai une erreur 1004 'Impossible de copier coller, les cellules sont de tailles différentes. 'MENTEUR!!!'
voici mon code:
For cx = 4 To 15 'boucle sur tous les onglets
'
If Range('DD' & 1009 + cx).Value = 1 Then
ct = ct + 1
Range(Sheets(cx).Name & '!A1:AQ43').Copy
Sheets('Monfichier').Select
With ActiveSheet.Range('A1') 'la première cellule de destination
.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With
End If
'
Next cx 'prochain onglet de la boucle
le premier Paste me 'formate' bien mes cellules: fusion, couleur, Contour. Après vérification, mes cellules ont la bonne tailles.
Où est l'erruer?
Merci pour vos lumières.
@+
Pascale