Copier et coller une plage

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

sonskriverez

XLDnaute Occasionnel
Bonsoir le forum,

Pour comparer des cellules de 2 feuilles, j'utilise cette macros :

Sub compare()

Application.ScreenUpdating = False
Dim sht1 As Worksheet, sht2 As Worksheet
Dim cellule1 As Range, cellule2 As Range
Dim I As Integer
Dim note, lieu As String

Set sht1 = Worksheets("Feuille 1")
Set sht2 = Worksheets("Feuille 2")

note = "Pas Ok "
note1 = "OK"

For Each cellule1 In sht1.Range("A2:A" & sht1.Range("A65536").End(xlUp).Row)
sht1.Activate
For Each cellule2 In sht2.Range("A2:A" & sht2.Range("A65536").End(xlUp).Row)
sht2.Activate
If cellule1.Value = cellule2.Value Then
sht1.Activate
ActiveCell.Offset(0, 18).Value = note
sht2.Activate
ActiveCell.Offset(0, 1).Value = note1
Exit For
End If
Next cellule2
Next cellule1
Application.ScreenUpdating = False
End Sub

Sur le même principe je voudrais copier une plage (a la place des "note") , du genre en sheet1 , Activecell.Offset(0,18).copy les 4 cellules suivantes
et en Sheet2, Activecell.Offset(0,1).paste les cellules copiées.

Merci de votre aide


Merci de votre aide
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
177
Réponses
7
Affichages
211
Réponses
5
Affichages
232
Réponses
2
Affichages
201
Réponses
10
Affichages
281
Retour