copier une ligne dans une autre feuille

  • Initiateur de la discussion Initiateur de la discussion zephir94
  • Date de début Date de début

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 !

zephir94

XLDnaute Impliqué
Bonjour à tous,

Je n'arrive pas à copier les valeurs d'une ligne après une recherche dans la feuille1 vers une autre feuille, voici mon code

Code:
Private Sub CommandButton1_Click()
Dim Nom As String
Dim Cell As Range

Nom = InputBox("Veuillez Saisir le Nom")

If Nom = "" Then
    MsgBox "Vous n'avez pas saisi de Nom !!!", vbExclamation
    Exit Sub
End If

Set Cell = Feuil1.Columns(1).Find(Nom, LookIn:=xlValues, lookat:=xlWhole)
If Cell Is Nothing Then MsgBox (" Le nom " & " " & Nom & " " & "n'a pas été trouvé dans la liste du personnel "), vbExclamation: Exit Sub

 Selection.Copy
    Sheets("Agent").Select
    
    Rows("60:60").Select
    ActiveSheet.Paste
End Sub
ça me copie une ligne vierge !
Merci à vous tous pour vos aides
zephir
 
Dernière édition:
Re : copier une ligne dans une autre feuille

J'ai trouvé en fait en écrivant ceci

Code:
Private Sub CommandButton1_Click()
 Dim Nom As String
 Dim Cell As Range

 Nom = InputBox("Veuillez Saisir le Nom")

 If Nom = "" Then
     MsgBox "Vous n'avez pas saisi de Nom !!!", vbExclamation
     Exit Sub
 End If

 Set Cell = Feuil1.Columns(1).Find(Nom, LookIn:=xlValues, lookat:=xlWhole)
 If Cell Is Nothing Then MsgBox (" Le nom " & " " & Nom & " " & "n'a pas été trouvé dans la liste du personnel "), vbExclamation: Exit Sub

  Cell.EntireRow.Copy
     Sheets("Agent").Select
     
     Rows("60:60").Select
     ActiveSheet.Paste
 End Sub
Je suis sûr qu'il doit y avoir plus élégant ?
 
Re : copier une ligne dans une autre feuille

Bonjour, zephir94, le Forum,

Voici une légère modification afin de ne copier que les valeurs :

Code:
Option Explicit
Private Sub CommandButton1_Click()
    Dim Nom As String
    Dim Cell As Range
    Nom = InputBox("Veuillez Saisir le Nom")
    If Nom = "" Then
        MsgBox "Vous n'avez pas saisi de Nom !!!", vbExclamation
        Exit Sub
    End If
    Set Cell = Feuil1.Columns(1).Find(Nom, LookIn:=xlValues, lookat:=xlWhole)
    If Cell Is Nothing Then MsgBox (" Le nom " & " " & Nom & " " & "n'a pas été trouvé dans la liste du personnel "), vbExclamation: Exit Sub
    Sheets("Agent").Rows("60:60").Value = Cell.EntireRow.Value
End Sub

A bientôt 🙂
 
Re : copier une ligne dans une autre feuille

Bonjour DoubleZero,

J'ai essayé la modification que tu me propose et ça fonctionne parfaitement, je t'en remercie
Je n'arrivais pas à ecrire
Code:
Sheets("Agent").Rows("60:60").Value = Cell.EntireRow.Value
Un grand merci à toi
Amicalement
Zephir
 
Re : copier une ligne dans une autre feuille

Re-bonjour,

Une autre petite modification...

Remplacer cette ligne :

Code:
If Cell Is Nothing Then MsgBox (" Le nom " & " " & Nom & " " & "n'a pas été trouvé dans la liste du personnel "), vbExclamation: Exit Sub

par celle-ci :

Code:
If Cell Is Nothing Then MsgBox (" Le nom " & Nom & " n'a pas été trouvé dans la liste du personnel"), vbExclamation: Exit Sub

A bientôt 🙂
 
- 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
2
Affichages
153
Retour