Sujet Précédent Sujet Suivant

Recherche dans une colonne et copie de la ligne correspondante dans une feuille

amelmotiv Messages postés 5 Date d'inscription samedi 10 janvier 2009 Statut Membre Dernière intervention 24 janvier 2009 - 10 janv. 2009 à 23:06
amelmotiv Messages postés 5 Date d'inscription samedi 10 janvier 2009 Statut Membre Dernière intervention 24 janvier 2009 - 24 janv. 2009 à 22:13
Bonjour,

J'ai effectué une macro pour rechercher un nom dans une colonne et copier la ligne correspondante dans une autre feuille mais mon progamme ne marche pas et je ne trouve pas l'erreur pouvez vous m'aider?

le programme est le suivant:

Private Sub CommandButton1_Click()
Dim i As Long
For i = 1 To 10
If Sheets("feuil7").Range("A1").Offset(i, 0).Find(What:="directeur") Is Nothing Then
Sheets("feuil7").Range("A1").Offset(i, 0).EntireRow.Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil8").Select
Sheets("feuil8").Range("A1").End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
Else
Sheets("feuil7").Range("A1").Offset(i, 0).Find(What:="directeur").Activate
Sheets("feuil7").Range("A1").Offset(i, 0).EntireRow.Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil8").Select
Sheets("feuil8").Range("A1").End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
End If
Next i
End Sub

Merci pour votre aide

3 réponses

Réponse 1 / 3
amelmotiv Messages postés 5 Date d'inscription samedi 10 janvier 2009 Statut Membre Dernière intervention 24 janvier 2009
10 janv. 2009 à 23:19
Escuser moi le programmee est le suivant

Private Sub CommandButton1_Click()
Dim i As Long
For i = 1 To 10
If Sheets("feuil7").Range("A1").Offset(i, 0).Find(What:="directeur") Is Nothing Then
Else
Sheets("feuil7").Range("A1").Offset(i, 0).Find(What:="directeur").Activate
Sheets("feuil7").Range("A1").Offset(i, 0).EntireRow.Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil8").Select
Sheets("feuil8").Range("A1").End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
End If
Next i
End Sub


Merci de votre aide
0
Réponse 2 / 3
NHenry Messages postés 15069 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 29 mai 2023 158
17 janv. 2009 à 22:43
Bonjour,

"mais mon progamme ne marche pas et je ne trouve pas l'erreur pouvez vous m'aider?"
Résultats incohérents ?
Essaye de l'executer en pas à pas et de voir les valeurs des variables, tu trouveras l'erreur je pense.

http://nhen0039.chez-alice.fr/index.php
0
Réponse 3 / 3
amelmotiv Messages postés 5 Date d'inscription samedi 10 janvier 2009 Statut Membre Dernière intervention 24 janvier 2009
24 janv. 2009 à 22:13
merci pour votre aide, je viens de trouver.
0
Rejoignez-nous