Copier une portion de ligne d'une feuille vers une autre

[ytabouret]

Bonjour à tous,

Je débute en VBA et j'ai besion d'aide pour effectuer la tâche de l'intitulé.

Plus précisément, je désire copier les valeurs des cellules C34 à AL34 d'une feuille nommée "Saisie", vers une feuille nommée "Réalisé", sachant que le numéro de la ligne de destination est égale à Saisie!K5.

Merci d'avance pour toute aide.

Cordialement,

ytabouret

 

[Guest]

Re : Copier une portion de ligne d'une feuille vers une autre

Bonsoir et bienvenue sur le forum,

brut de décoffrage:

Sub copieValeur()
    With Sheets("Saisie")
        If IsNumeric(.Range("K5")) Then
            With .Range("C34:AL34")
                Sheets("Réalisé").Range("A" & Int(.Range("K5"))).Resize(1, .Columns.Count).Value = .Value
            End With
        End If
    End With
End Sub

La prochaine fois, mets un fichier exemple qu'on puisse adapter.

A+

 

[job75]

Re : Copier une portion de ligne d'une feuille vers une autre

Bonsoir ytabouret, salut Hasco

Une autre syntaxe :

Sub Copie()
Dim n As Variant, plage As Range
n = Sheets("Saisie").[K5]
If n > 65536 Or n < 1 Then MsgBox "Saisie!K5 non valide !", 48: Exit Sub
Set plage = Sheets("Saisie").[C34:AL34]
Sheets("Réalisé").Cells(n, "A").Resize(, plage.Count) = plage.Value
End Sub

ytabouret va pouvoir travailler tout ça

Noter que ytabouret n'a pas indiqué le début de la plage de destination.

Il est supposé ici en colonne "A", sinon adapter.

A+

 

[ytabouret]

Re : Copier une portion de ligne d'une feuille vers une autre

Bonjour Hasco et Job75,

Super génial ! C'est impec. En plus, avoir deux exemples c'est très pédagogique.

Je vais pouvoir "travailler tout ça " comme dit Job75. J'ai bien vu comment indiquer le début de la plage de destination.

Merci beaucoup pour votre aide, vous êtes super réactifs et efficaces.

Cordialement