Transfert de données

[Safety85]

Bonjour à tous et bon après midi,

Pouvez vous me dire pourquoi le transfert des données de la feuille 03 vers la feuille Base de données ne fonctionne avec le module 2.

Si par la même occasion, vous pouviez me corriger se serait sympathique de votre part.

Merci

Safety85

 

[Bernard]

Bonjour Safety85

Quelques petites modifs afin de redéfinir correctement les plages de travail.

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("Base de données").Range("A6:H30000").ClearContents

'Copie des lignes non validées de "03" dans "Base de données"
Set MyRange = Range(Sheets("03").[A12], Sheets("03").[A1000].End(xlUp))
For Each C In MyRange
If C.Offset(0, 7) = "NON" Then
C.EntireRow.Range("A1:H1").Copy
Sheets("Base de données").Range("A10000").End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End If
Next C
Application.ScreenUpdating = True
End Sub

Cordialement

Bernard

 

[Safety85]

Bonjour Bernard,

Merci de m'apporter la correction.

Heureusement qu'il ya des personnes comme toi et beaucoup d'autres sur le forum qui sont prêts à nous aider (nous les débutants).

Je commence à comprendre certaines choses dans excel et les macros.

Merci

Safety85

 

[Safety85]

Bernard,

pouvez vous regarder le message que j'ai envoyé ce matin qui s'intitule 'Enregistrer des feuilles dans un autre fichier pour archiver'?

Il s'agit peut être de quelque chose de difficle mais il s'agirait de la cerise sur le gâteau pour mon fichier excel.

Merci d'avance

Safety85