Discussion :

[Eddy95500]

Bonjour à Tous,

Je me tourne vers vous car je viens d ecrire une petite macro toute bête mais j ai l impressions qu'elle ne fonctionne pas je vous liste le code ci-dessous :
J ai un fichier de data sur lequel j effectue une recherche afin de trouver toutes les expressions qui commence par ce que je vais input dans la Inputbox, puis une fois que la macro tombe sur la ligne i ou elle trouve une ressemblance elle me copie la cellule dans une nouvelle feuille excel et ceci X nombre de fois. Merci d avance pour votre assistance.
Bonne journée.
(P.S desole pour les accents et les apostrophes j ai un clavier allemand...)
Cdt,
A

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Public Sub Sonia()
Dim saisie As String, i As Integer, x As Integer
 
 
saisie = Application.InputBox("Saisie de la recherche")
x = Application.WorksheetFunction.CountA(Range("$A:$A"))
 
    For i = 1 To x
    If Range("d" & i).Value Like saisie Then
    Range("d" & i).Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets("sheet1").Select
    Range("a" & i).Paste
    End If
    Next
End Sub

[SfJ5Rpw8]

Bonjour,

que saisie tu dans ton input box ... si c'est juste le début de la chaîne à trouver essai de terminer celle-ci par le caractère étoile et dis nous ce qui ce passe..;

[Eddy95500]

Bonjour,

Lorsque je saisie et aue j appuie sur entre il me retourne a la page de ma macro sans indiquer de message d erreurs.

Cdt,
A

[SfJ5Rpw8]

Bonjour,

Lorsque je saisie et aue j appuie sur entre il me retourne a la page de ma macro sans indiquer de message d erreurs.

Cdt,
A

tu saisie quoi ?

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 If Range("d" & i).Value Like saisie Then 'je verifi la condition
      debug.print  Range("d" & i)
      Range("d" & i).Copy 'je copie "d" & i

exécute ton code en pas à pas touche [F8];
vérifies que tu passe bien dans le if Range... Then 'je vérifies la condition!

rajoute l'instruction debug.print Range("d" & i) et vérifies sa valeur raccourci clavier [ctrl] + [g]

[Invité]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub Sonia()
Dim saisie As String, i As Integer, x As Integer
saisie = Application.InputBox("Saisie de la recherche")
x = Application.WorksheetFunction.CountA(Range("$A:$A"))
For i = 1 To x
    If Range("d" & i).Value Like saisie Then 'je verifi la condition
        Range("d" & i).Copy 'je copie "d" & i
        Sheets.Add After:=Sheets(Sheets.Count) 'j'ajoute et j'active un nouvel onglet
        Sheets("sheet1").Select 'je selectionne la feulle1
        Range("a" & i).Paste 'je colle dans "a" & i de la feulle1
    End If
Next 'je boucle sur i de la feulle 1 et je vais copier  "d" & i coler "a" & i  de la feulle1 mais entre temps je ratouteais un onglet!
End Sub

est-ce bien le traitement que tu veux faire?
qu'y a-t-il dans le copier car copier rein et ne rien coller n'est pas un erreur un bêtise tout au plus!

déroule ton code en appuyant plusieurs fois sur la touche [F8]

[Eddy95500]

Bonjour,
Oui c est bien le traitement que je veux faire. Dans le presse papier il doit y avoir la cellule qui respecte la condition like qui correspond aux 4 premiers caracteres que j input dans la box pour trouver les cellules correspondantes. Je fais une boucle car je voudrais que toutes les cellules non vides soient testees avec la condition que j input.
Merci beaucoup
Cdt,
A