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.
A voir également:
- J'arrive pas a faire marcher cette macro(XLS)
- Comment faire marcher chromecast - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Comment ouvrir un fichier xls? - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
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.
Bonne suite
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
newbyredhead
Messages postés
2
Statut
Membre
Merci infiniment :) vous m'avez sauvé la vie!
