Recopie incomplète

Le
Guy85
Bonjour,
J'ai le code ci-dessous.
La copie ce fait bien avec la partie de code "Pressions" mais pas avec les
autres ?
Quelqu'un a t-il une idée ?
Merci de votre aide

Sub Transfert()

Dim FeRécap As Worksheet
Dim FeFévrier As Worksheet
Dim Source As Range
Dim Colonne As String

Set FeRécap = Worksheets("Récap")
Set FeFévrier = Worksheets("Février")

With FeRécap
'Pressions
Set Source = .Range("A5:G5"): Colonne = "F"
FeFévrier.Range(Colonne & 65535).End(xlUp).Offset(2, 0). _
Resize(Source.Rows.Count, Source.Columns.Count).Value = Source.Value
'Températures
Set Source = .Range("H5:N5"): Colonne = "S"
FeFévrier.Range(Colonne & 65535).End(xlUp).Offset(2, 0). _
Resize(Source.Rows.Count, Source.Columns.Count).Value = Source.Value
'Vent
Set Source = .Range("O5:AC5"): Colonne = "AF"
FeFévrier.Range(Colonne & 65535).End(xlUp).Offset(2, 0). _
Resize(Source.Rows.Count, Source.Columns.Count).Value = Source.Value
'Pluie-Humidité-Soleil
Set Source = .Range("AD5:AJ5"): Colonne = "BA"
FeFévrier.Range(Colonne & 65535).End(xlUp).Offset(2, 0). _
Resize(Source.Rows.Count, Source.Columns.Count).Value = Source.Value

Sheets("Février").Select
Range("A1").Select


End With

End Sub

--
Cordialement
Guy
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Guy85
Le #21167861
J'ai trouvé.

"Guy85" %23bC1L$
Bonjour,
J'ai le code ci-dessous.
La copie ce fait bien avec la partie de code "Pressions" mais pas avec les
autres ?
Quelqu'un a t-il une idée ?
Merci de votre aide

Sub Transfert()

Dim FeRécap As Worksheet
Dim FeFévrier As Worksheet
Dim Source As Range
Dim Colonne As String

Set FeRécap = Worksheets("Récap")
Set FeFévrier = Worksheets("Février")

With FeRécap
'Pressions
Set Source = .Range("A5:G5"): Colonne = "F"
FeFévrier.Range(Colonne & 65535).End(xlUp).Offset(2, 0). _
Resize(Source.Rows.Count, Source.Columns.Count).Value = Source.Value
'Températures
Set Source = .Range("H5:N5"): Colonne = "S"
FeFévrier.Range(Colonne & 65535).End(xlUp).Offset(2, 0). _
Resize(Source.Rows.Count, Source.Columns.Count).Value = Source.Value
'Vent
Set Source = .Range("O5:AC5"): Colonne = "AF"
FeFévrier.Range(Colonne & 65535).End(xlUp).Offset(2, 0). _
Resize(Source.Rows.Count, Source.Columns.Count).Value = Source.Value
'Pluie-Humidité-Soleil
Set Source = .Range("AD5:AJ5"): Colonne = "BA"
FeFévrier.Range(Colonne & 65535).End(xlUp).Offset(2, 0). _
Resize(Source.Rows.Count, Source.Columns.Count).Value = Source.Value

Sheets("Février").Select
Range("A1").Select


End With

End Sub

--
Cordialement
Guy



Publicité
Poster une réponse
Anonyme