Besoin d'aide VBA Excel
extilic
Messages postés
3
Statut
Membre
-
Dev13 -
Dev13 -
Bonjour, je n'ai jamais fais de VBA Excel et je cherche a créer un programme.
Je m'explique.
Dans une première feuille j'ai dans la colonne A différents secteurs (Secteur Nord, Secteur Sud;...)
Dans la colonne B le nom d'un restaurant
Dans la colonne C le nom d'un autre restaurant, ainsi de suite
Et dans ces différentes colonne des chiffres correspondants au différents secteurs.
Dans une seconde feuille j'aimerai pouvoir afficher les noms des différents restaurants qui dispose d'une données automatiquement après avoir rentré un nom du secteur concerné.
Par exemple : Si en face du secteur Nord il y a 4, je voudrai afficher le restaurant qui fait a pour nombre "4".
Merci d'avance pour votre aide.
Je m'explique.
Dans une première feuille j'ai dans la colonne A différents secteurs (Secteur Nord, Secteur Sud;...)
Dans la colonne B le nom d'un restaurant
Dans la colonne C le nom d'un autre restaurant, ainsi de suite
Et dans ces différentes colonne des chiffres correspondants au différents secteurs.
Dans une seconde feuille j'aimerai pouvoir afficher les noms des différents restaurants qui dispose d'une données automatiquement après avoir rentré un nom du secteur concerné.
Par exemple : Si en face du secteur Nord il y a 4, je voudrai afficher le restaurant qui fait a pour nombre "4".
Merci d'avance pour votre aide.
A voir également:
- Besoin d'aide VBA Excel
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Excel compter cellule couleur sans vba - Guide
2 réponses
Bonjour,
essai ca je sais pas si ca correspond a ta question
ca te cherhce les restau qui appartienne au secteur demander et les exporte sur la 2e feuille excel
Sub Bouton1_QuandClic()
Dim secteur As String
Dim ligne,colonne As Integer
Dim i,n
ligne = 1
i = 1
secteur = InputBox("entrez le secteur recherchez?")
While Not IsEmpty(Sheets("feuil1").Cells(ligne, 1))
ligne = ligne + 1
If Sheets("feuil1").Cells(ligne, 1) = secteur Then
n = 1
i = i + 1
colonne = 2
While Not IsEmpty(Sheets("feuil1").Cells(ligne, colonne))
Sheets("feuil2").Cells(i, n) = Sheets("feuil1").Cells(ligne, colonne).Value
colonne = colonne + 1
n = n + 1
Wend
End If
Wend
End Sub
essai ca je sais pas si ca correspond a ta question
ca te cherhce les restau qui appartienne au secteur demander et les exporte sur la 2e feuille excel
Sub Bouton1_QuandClic()
Dim secteur As String
Dim ligne,colonne As Integer
Dim i,n
ligne = 1
i = 1
secteur = InputBox("entrez le secteur recherchez?")
While Not IsEmpty(Sheets("feuil1").Cells(ligne, 1))
ligne = ligne + 1
If Sheets("feuil1").Cells(ligne, 1) = secteur Then
n = 1
i = i + 1
colonne = 2
While Not IsEmpty(Sheets("feuil1").Cells(ligne, colonne))
Sheets("feuil2").Cells(i, n) = Sheets("feuil1").Cells(ligne, colonne).Value
colonne = colonne + 1
n = n + 1
Wend
End If
Wend
End Sub
Merci de ton aide ..apparemment ca ne fonctionne pas ..a moins que celà viens de moi.
Si y a avait possibilité d'envoyer le fichier pour pouvoir vous montrez ça aurait été sympa !
Si y a avait possibilité d'envoyer le fichier pour pouvoir vous montrez ça aurait été sympa !
je l'ai essayer avant de l'envoyer et ca marche chez moi, j'ai creer un boton sur la première feuille a qui j'ai affecter ce code.en rentron le secteur rechercher ca t'exporte les resteau correspondant a ce secteur en ordre sur la 2e feuille.si ca marche pas tjr envoi moi le fichier excel sur mon e-mail peut etre que j'ai pas compris ce que tu veu faire.
azeg113@yahoo.fr
azeg113@yahoo.fr