S
Safety85
Guest
Bonjour,
J'ai cette macro qui fonctionne pour un transfert de donnée entre deux feuilles mais seulement quand des cellules ne sont pas fusionnées.
Or il se trouve que j'ai les cellules BCDE et FGHI qui sont fusionnées entre elles.
Pouvez vous m'aider s'il vous plaît.
Sub TransfertOpérations()
Dim MyRange As Range
Dim i As Integer, j As Byte
Dim C As Variant
Dim S As String
Application.ScreenUpdating = False
Sheets("En cours").Range("A2:G30000").ClearContents
'Copie des lignes non validées de "SYN" dans "Base de données"
Set MyRange = Range(Sheets("SYN").[A2], Sheets("SYN").[A1000].End(xlUp))
For Each C In MyRange
If C.Offset(0, 7) = "NON" Then
C.EntireRow.Range("A1:G1").Copy
Sheets("En cours").Range("A10000").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End If
Next C
Application.ScreenUpdating = True
End Sub
MERCI D'AVANCE
SAFETY85
J'ai cette macro qui fonctionne pour un transfert de donnée entre deux feuilles mais seulement quand des cellules ne sont pas fusionnées.
Or il se trouve que j'ai les cellules BCDE et FGHI qui sont fusionnées entre elles.
Pouvez vous m'aider s'il vous plaît.
Sub TransfertOpérations()
Dim MyRange As Range
Dim i As Integer, j As Byte
Dim C As Variant
Dim S As String
Application.ScreenUpdating = False
Sheets("En cours").Range("A2:G30000").ClearContents
'Copie des lignes non validées de "SYN" dans "Base de données"
Set MyRange = Range(Sheets("SYN").[A2], Sheets("SYN").[A1000].End(xlUp))
For Each C In MyRange
If C.Offset(0, 7) = "NON" Then
C.EntireRow.Range("A1:G1").Copy
Sheets("En cours").Range("A10000").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End If
Next C
Application.ScreenUpdating = True
End Sub
MERCI D'AVANCE
SAFETY85