Fonction recherche et copier/coller

Bonjour

Je n'arrive pas à faire une recherche
une recherche à partir de quelle donnée ?

dans des cases bien précises
lesquelles ?

Merci de faire l'effort d'^tre précis dans vos demandes....
 Michel

Bonjour,

Le critere de recherche est dans quelle colonne, il est en plusieurs position dans la colonne et il tombe du ciel ou ....?

Merci de me porter de l'importance à me répondre et désolé d'être imprécis mais je débute intégralement à VBA donc bon...

J'aimerais effectuer une recherche dans tout mon tableau de 467 lignes. Une fois qu'il a trouvé la valeur "X" dans la troisième colonne, il l'a copie et l'a colle dans un autre classeur "Classeur1" (admettons pour le nom)

J'espère que j'ai été assez clair et compris dans mes explications...

Bonjour,

tout d'abord merci pour vos réponses et votre attention. Je me suis mal expliqué je vais remettre au clair mon problème:

j'ai une base de donnée qui se présente sur 7 colonnes qui s'appellent, dans cet ordre: operation code, parent task code, task code, task, Ref, ATA, CHAP.
Donc 7 colonnes et à peu près 500 lignes.

J'ai mis en place une gestion de la bases de données (créer, modifier, supprimer une ligne) sous VBA.

Je souhaite maintenant avoir la possibilité d'effectuer la copie des lignes qui ont le même "operation code" (à savoir qu'elles ne se trouvent pas forcément dans l'ordre dans la base de données) après avoir coché une checkbox (qui correspond a cette operation) et de coller ces lignes sur une feuille vierge d'excel (qui existera déjà). Il faudrait que les lignes se posent les unes après les autres dans l'ordre, à chaque fois qu'elles se collent à la dernière ligne non vide.

voila la ligne de code que j'ai commencé a faire mais elle ne marche pas comme je voudrais:

Dim M As Integer
If CheckBox28.Value = True Then
For M = 1 To 1000
If Cells(M, "B") = "A109E-INSP-7D" Then
Cells(M, "D").Select
Selection.Copy
Cells(M, "D").Select
ActiveSheet.Paste
End If
Next M
End If

il l'a copie et l'a colle dans un autre classeur "Classeur1" (admettons pour le nom)
Où dans la classeur1 ?

je débute intégralement à VBA donc bon...

ca n'a rien à voir
quand tu as à réaliser une appli, l'erreur est de se précipiter sur l'ordi et commence à écrire des lignes ou essayer avec l'enregistreur de macro
1° étape: analyser le problème (sur papier si compliqué)
vieux proverbe: "un pb bien posé est à moitié résolu"
au besoin, poser des questions sur les imprécisions

2° étape:une fois les réponses obtenues, faire valider le système voulu par le client

3° étape: évaluer les solutions possibles et écrire ce qui parait être la solution optimum

tel que tu décris ton pb, je me dis que ca a été rédigé en "vite fait-mal fait" et j'ai tendance à zapper

 Michel

Bonjour la communauté !

Voici mon élément de réponse pour ton problème :

'Dans le classeur 1
Dim i As Integer
i=1

While x <> Range (" C " & i & "").Value
    i = i + 1
Wend

Range("C " & i & "").EntireRow.Copy
'Ou si j'ai bien compris comme il y a 7 colonnes ce sera plus
Range("A" & i & " : G " & i & "").Copy

Workbooks("Classeur2").Worksheets("Feuil1").Range("A69").Paste

ça te va? :D
Bien cordialement,
Hugo