J'arrive pas a faire marcher cette macro(XLS)
newbyredhead
Messages postés
2
Statut
Membre
-
newbyredhead Messages postés 2 Statut Membre -
newbyredhead Messages postés 2 Statut Membre -
Bonjour,
je ne connais pas vraiment le visual basic ni aucun autre langage de programmation, j'avais besoin de faire une toute petite application sur mon classeur de statistique et j'ai suivi quelque tuto et je suis parvenue a ecrire ce "code"
Sub FMI()
Dim noline, bail As Integer
Dim datedate, service, qte As String
bail = 5
noline = 14
With Sheets("home")
While Cells(noline, "H") = "route21"
datedate = Cells(noline, "a")
service = Cells(noline, "e")
qte = Cells(noline, "l")
Sheets("stat").Select
Cells(bail, "A") = datedate
Cells(bail, "B") = service
Cells(bail, "c") = qte
bail = bail + 1
noline = noline + 1
Wend
End With
End Sub
en fait ce que je veux faire avec et de chercher toutes les lignes qui contiennet le mot "route21" qui correpond a la colonne H de cette feuille et a copier le contenu de la colonne a , e et L de cette meme ligne dans une autre feuille.. est ce que quelqu'un peut m'aider SVP. MERCI.
je ne connais pas vraiment le visual basic ni aucun autre langage de programmation, j'avais besoin de faire une toute petite application sur mon classeur de statistique et j'ai suivi quelque tuto et je suis parvenue a ecrire ce "code"
Sub FMI()
Dim noline, bail As Integer
Dim datedate, service, qte As String
bail = 5
noline = 14
With Sheets("home")
While Cells(noline, "H") = "route21"
datedate = Cells(noline, "a")
service = Cells(noline, "e")
qte = Cells(noline, "l")
Sheets("stat").Select
Cells(bail, "A") = datedate
Cells(bail, "B") = service
Cells(bail, "c") = qte
bail = bail + 1
noline = noline + 1
Wend
End With
End Sub
en fait ce que je veux faire avec et de chercher toutes les lignes qui contiennet le mot "route21" qui correpond a la colonne H de cette feuille et a copier le contenu de la colonne a , e et L de cette meme ligne dans une autre feuille.. est ce que quelqu'un peut m'aider SVP. MERCI.
1 réponse
-
Bonjour,
Votre code modifie pour qu'il donne un resultat. Si vous avez quelques centaines de lignes a scruter il faudrait changer de methode de recherche. Dans l'aide EXCEL pour: Range.Find, méthode
il y a un exemple relativement facile a adapter pour vous, pour debuter.
Sub FMI() Dim noline, bail As Integer Dim datedate, service, qte As String Application.ScreenUpdating = False bail = 5 noline = 14 With Worksheets("home") While .Cells(noline, "H") <> "" If .Cells(noline, "H") = "route21" Then Worksheets("stat").Cells(bail, "A") = .Cells(noline, "a") Worksheets("stat").Cells(bail, "B") = .Cells(noline, "e") Worksheets("stat").Cells(bail, "c") = .Cells(noline, "l") bail = bail + 1 End If noline = noline + 1 Wend End With Application.ScreenUpdating = True End Sub
Bonne suite
