EXCEL RECHERCHE ET COPIE D UNE LIGNE

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

;-)

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

;-)

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

bonjour,
peut tu afficher ta macro ?
stp

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

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

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.