High-Tech Santé Médecine Droit-Finances

Grippe A

Que dois-je faire ?

Rechercher : dans
Par :

EXCEL RECHERCHE ET COPIE D UNE LIGNE

Dernière réponse le 22 oct 2009 à 15:26:58 manu2183, le 31 aoû 2005 à 10:10:33 
 Signaler ce message aux modérateurs

Bonjour et merci d avance

je souhaiterai dans un tableau excel créer une macro afin de chercher un mot dans une colonne et copier ensuite toute la ligne dans un onglet diffférent .
Après les divers essais que j ai fait j arrive bien à selectionner la cellule copmrenant le mot dans la colonne mais j arrive pas à étendre la sélection à la ligne .

Merci d avance de votre aide

Configuration: microsoft office 2000

Meilleures réponses pour « EXCEL RECHERCHE ET COPIE D UNE LIGNE » dans :
[VBA] RechercheV Polyvalente VoirRECHERCHE POLYVALENTE Pour les accros et les inconditionnels des fonctions d'Excel, avant de crier au scandale, lisez les quelques lignes suivantes. La RechercheV d'origine a beaucoup de limites: La colonne de la donnée doit être avec un offset...
Figer une ligne dans un tableau Excel VoirPour figer la ligne 1 (par exemple) dans une feuille excel : Sélectionnez la ligne 2, Puis allez dans le menu "Fenêtres" et option "Figer les volets".
Posez votre question Répondre

1

teleteube, le 31 aoû 2005 à 13:38:31

Pour selectionner la ligne complete de la cellule A2 par exemple:

Sub SelectionLigne()
Range("A2").EntireRow.Select
End Sub

Voila j'espere que c'est ce que tu voulais.
ciao

   
Répondre à teleteube

2

WhiteFang, le 31 aoû 2005 à 14:31:38
  • +1

;-) Et en plus court : Rows(1).Select... Wild and Free

   
Répondre à WhiteFang

3

manu2183, le 31 aoû 2005 à 14:52:14
  • +1

Merci à tous mais j ai solutionné mon problème .
il me faut maintenant
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 30/08/2005 par GuimarEm

Dim tableau(50), i, j, k

i = 2
j = 0

While i < 50
If Workbooks("xx").Sheets("Feuil1").Cells(8, i) = "x" Then
tableau(j) = Workbooks("xx.xls").Sheets("Feuil1").Cells(7, i)
j = j + 1
End If
i = i + 1
Wend

k = 5
j = 0
While tableau(j) <> ""
i = 2
While i < 1000
While Workbooks("xx.xls").Sheets("maxcase").Cells(i, 35) <> tableau(j) And i < 1000
i = i + 1
Wend
Workbooks("xx.xls").Sheets("maxcase").Rows(i).Copy
Sheets("tableau").Select
Rows(k).Select
ActiveSheet.Paste
k = k + 1
i = i + 1
Wend
j = j + 1
Wend

End Sub

voici mon programme toute fois un problème subsiste dans la ligne

While Workbooks("xx.xls").Sheets("maxcase").Cells(i, 35) <> tableau(j) And i < 1000

car tout va bien quand il y a que la chaine de caratere spécifié mais quand il y a la chaiine de caractère plus une autre chaine dans la meme cellule il bne veut pas prendre la cellule alors que je voudrai
Connaissez vous l opérateur permettant de le lui dire

   
Répondre à manu2183

4

WhiteFang, le 31 aoû 2005 à 15:15:10

;-)

Cela me paraît énorme, en lignes, par rapport au problème...

Une question : Comment et où est défini le mot à rechercher, pour la copie ?

;-) Wild and Free

   
Répondre à WhiteFang

5

WhiteFang, le 31 aoû 2005 à 16:17:14
  • +1

;-) 

Dim MotCherche, L, C, InL, InC, OutL
Dim Origine, Destination
Set Origine = Workbooks(1).Sheets(1)
Set Destination = Workbooks(1).Sheets(2)
MotCherche = "un truc"
InL = Origine.ActiveCell.SpecialCells(xlCellTypeLastCell).Row
InC = Destination.ActiveCell.SpecialCells(xlCellTypeLastCell).Colu­mn
OutL = Destination.ActiveCell.SpecialCells(xlCellTypeLastCell).Row
For L = 1 To InL
  If Origine.Cells(L, 1).Value = MotCherché Then
    For C = 1 To InC
      Destination.Cells(OutL, C).Value = Origine.Cells(L, C).Value
      OutL = OutL + 1
      Next
    End If
  Next


Un petit exemple... Sachant que la variable MotCherché contient ce que tu cherches, et que la colonne à explucher est la colonne 1, que le classeur d'origine est le premier classeur ouvert et la feuille d'origine est la première feuille, la feuille destination est la 2 ème feuille du classeur 1... tu n'as plus qu'a remplacer avec tes données à toi, et extrapoler...

;-) Wild and Free

   
Répondre à WhiteFang

6

WhiteFang, le 31 aoû 2005 à 16:30:01
  • +1

;-( J'ai fait une petite erreur : En relisant, tu auras compris que InC doit pointer sur Origine, pas sur Destination.... Désolé...
Wild and Free

   
Répondre à WhiteFang

7

WhiteFang, le 31 aoû 2005 à 16:31:55

;-( T'in, encore une autre !! : Tu vires OutL de la boucle, tu met après next... Fatigué... Wild and Free

   
Répondre à WhiteFang

13

 Georges_R, le 22 oct 2009 à 15:26:58

Bonjour,

J'ai essayé le code mais

Lorsque la commande arrive à :

InL = Origine.ActiveCell.SpecialCells(xlCellTypeLastCell).Row
InC = Origine.ActiveCell.SpecialCells(xlCellTypeLastCell).Colu­mn
OutL = Destination.ActiveCell.SpecialCells(xlCellTypeLastCell).Row


j'obtiens le message d'erreur:
"Erreur d'éxécution '438': Propriété ou méthode non gérée par cet objet

Pouvez-vous m'apporter votre aide SVP?

   
Répondre à Georges_R

8

manu2183, le 1 sep 2005 à 08:46:26
  • +1

Merci à tous pour votre aide .
Pour faire comprendre le prog que j ai fait qui a un peu changé depuis je vais m expliquer un peu mieux.
le fichier excel contient 3 onglets le premier contient un tableau avec des cases à cocher representant des options . le deuxième contient l intitulé du tableau et le 3 toutes les données en fonction des otpions . donc le porg vise après avoir coché les options on lance le prog et il va remplir le tableau de la 2 feuille en fonction des options et des données de la troisième feuille.
En tout cas je vous remercie tous beaucoup

   
Répondre à manu2183

9

scorp57, le 22 fév 2008 à 15:29:52

Bonjour,
peut tu afficher ta macro ?
stp

   
Répondre à scorp57

10

DELEGUE, le 26 fév 2008 à 21:29:39

J'ai 4 colonnes. La premier contient un numéro, la deuxieme une liste, la troisieme un numéro la quatrième une liste.
Je souhaite inscrire dans une cinquième colonne le numéro de la colonne 1 dont le champs de la colonne 2 est identique à celui de la colonne 4 et ceci sur la ligne du champs de la colonne 4
Merci

   
Répondre à DELEGUE

11

fabanice, le 1 mar 2008 à 12:37:56

Bonjour,

Je me suis inspiré de la macro de WhiteFAng pour écrire la macro ci-dessous...

L'objectif est de copier le contenu de 2 cellules de la feuille source vers 2 cellules de la feuille cible pour toute les lignes dont la valeur REFERENCE sont identiques:

Mais l'execution plante avec le msg suivant : Objet Requis
Je ne vois pas quel objet n'est pas déclaré ... Une idée ?
Merci Beaucoup

Sub MAJ()
'
' Macro MAJ Mise à Jour Stock
'
Dim Reference, Cref, Quantite, Cqua, Unitaire, Cuni, L, LMIN, LMAX
Dim Source, Cible
Set Source = Workbooks("Stock2008").Sheets("Saisie")
Set Cible = Workbooks("Stock2008").Sheets("Stocks")
Set LMIN = 4
Set LMAX = 403
Set Cref = 2
Set Cqua = 4
Set Cuni = 6
Reference = Source.Range("A3:B3").Select
For L = LMIN To LMAX
If Cible.Cells(L, Cref).Value = Reference Then
Quantite = Source.Range("D14:D14").Select
Cible.Cells(L, Cqua).Value = Quantite
Unitaire = Source.Range("F14:F14").Select
Cible.Cells(L, Cuni).Value = Unitaire
Next
End If
End Sub

   
Répondre à fabanice

12

noxyde, le 26 mar 2008 à 14:33:04

Bonjour,

Dans le même ordre d'idées:

voici mon tableau:

Intitulé Nom Prenom
dn: Lecoq,OU=utilisateur,OU=Test,DC=fr,DC=machin,DC=local CN­=Yves
changetype: add
objectClass: top
objectClass: person
objectClass: organizationalPerson
objectClass: user
cn: Lecoq Yves
displayName: Lecoq Yves
sAMAccountName: ylecoq

dn: Coluche,OU=utilisateur,OU=Test,DC=fr,DC=machin,DC=local ­CN=Michel
changetype: add
objectClass: top
objectClass: person
objectClass: organizationalPerson
objectClass: user
cn: Coluche Michel
displayName: Coluche Michel
sAMAccountName: mcoluche

changetype: add
sAMAccountName: ajoly
cn: Joly Angelina
displayName: Joly Angelina
dn: Joly,OU=utilisateur,OU=Test,DC=fr,DC=machin,DC=local CN=­Angelina
objectClass: organizationalPerson
objectClass: person
objectClass: top
objectClass: user

dn: Ricard,OU=utilisateur,OU=Test,DC=fr,DC=machin,DC=local C­N=Paul
changetype: add
objectClass: top
objectClass: person
objectClass: organizationalPerson
objectClass: user
cn: Ricard Paul
displayName: Ricard Paul
sAMAccountName: pricard


Je souhaite recuperer de la colonne 1 le sAMAccountName: et le contenu se situant dans la colonne 3
ainsi que le displayName et le contenu se situant en colonne 2 et 3

Pour mettre ceci dans une autre feuille, et les regrouper:
du style:
samaccountname: pricard
CN: ricard paul


J'espère avoir été assez explicite.
Merci pour toutes aides.

   
Répondre à noxyde
Posez votre question Répondre
Ils ont besoin de votre aide