suite de liste

[PHILIPPE]

Bonjour le forum
Si quelqu’un avait l’amabilité de m’éclairer car pas du tout de notion de v-b
Je joins un fichier bien plus simple pour les explications et pas trop lourd ,voilà je voudrais pouvoir par un clic sur le bouton dans la feuille commande que les données dans la feuille commande s’inscrive dans les cellules de la feuille ‘données’ mais a la suite de la liste me montrer juste un exemple sur une cellule après je vais essayer de me débrouiller et par un autre bouton enregistrer la feuille commande dans un dossier
Merci pour votre temps passer a répondre
Salutations a tous philippe

 

[Michel_M]

Bonsoir Philippe et le forum

une solution parmi beaucoup de possibilités:

Sub decompter()
Dim lig As Long
Worksheets("donnees").Activate
lig = Range("A4").End(xlDown).Row
Range("A3").AutoFilter
Range("A3:A" & lig).AdvancedFilter Action:=xlFilterCopy, Copytorange:=Worksheets(" PAR AFFAIRE").Range("A4"), Unique:=True
End Sub

Ton espace avant le nom de l'onglet "par affaire" m'a fait pas mal cherché...



A+

Michel

 

[Hervé]

bonjour

Apparement j'ai pas compris la même demande que Michel.

voir en pièce jointe.

Salut
Hervé

PS : j'ai supprimé l'onglet "concerne" car zip trop gros sinon.

 

[Michel_M]

Salut Hervé

Effectivement, j'ai très mal pigé la question.

A+
Michel

 

[PHILIPPE]

Merci Hervé tout a fait ce que je voulais j'espère pouvoir un jour maîtriser un peu de vb je vais m'acheter des docs , merci à toi aussi Michel vraiment sympa de répondre aux novices
encore une question, comment faire pour que les numeros de da soit auto en ordre croissant.

 

[Hervé]

re

J'ai un souci pour te répondre quant au tri :

place ce code dans ta macro après le end with et dis-moi quel plage est selectionnée ? :

Sheets("DONNEES").Select
Selection.Range("A3").Select

Moi il me selectionne n'importe quoi :b24,c6. MYSTERE ????

En attendant
Salut
Hervé

 

[PHILIPPE]

je crois que je me suis mal exprimé j'ai fait une feuille liste et dans la cellule G5:G500 j'ai inscris AA0001pour G5 et AA0002 pour G6 ainsi de suite je voulais essayer de ne pas taper les n° de DA dans la feuille 'commande 'mais de les avoir dans un menu déroulant ou en auto une fois enregistré dans 'données'.
mais deja là c'est trés bien je te remercie pour t'a patiente
a+ philippe

 

[Hervé]

re

en ajoutant dans la macro "renvoi" après le end with et avant le end sub :

Range("e4").Value = "AA" & Format(Right(Range("e4").Value, 3) + 1, "000")

tu incrementeras automatiquement ton numéro de Da AA010 puis AA011, etc

Par contre merci te faire le teste de 18h27 que je t'es demandé j'ai un problème avec ton fichier et j'aimerais le résoudre.

a+

Salut
Hervé

 

[PHILIPPE]

re
Hervé, j'ai testé mais pas de message d'erreur j'ai copié et collé tes lignes a l'endroit indiqué rien ne se passe !
Par contre super pour le numérotage des DA.
Je te remercie encore je ne pourrai jamais t'aider en programmation vue ton niveau! Je vais m'y mettre cet hiver. Encore merci et bonne semaine.
Salutations A+

 

[CHti160]

Salut "PHILIPPE" bonsoir à tous
pour Hervé j'ai eu le même problème que toi
j'ai donc mis
With Sheets("DONNEES")
.Select
.Range("A3").select
End Select
et là ça Marche
Bonne continuation
A+++
Jean Marie

 

[PHILIPPE]

salut ' j-marie et Hervé ' bonsoir à tous
j'ai essayé ton code de j-m message " erreur de compilation"
par contre tout va bien avec le code à Hervé, une question, j'ai remarqué que quand j'enregistre il prend tout est -il possible d'enregistrer que la feuille commande.
Salut a vous et bonne soirée...phil.

 

[Hervé]

bonsoir

cette macro :

Public Sub enregistrement()

Sheets("commande").Select
Sheets("commande").Copy
Application.Dialogs(xlDialogSaveAs).Show "commande.xls"
End Sub
copy l'onglet vers un nouveau fichier et propose de choisir le nom et le répertoire de destination.

Salut
Hervé

Ps jean-marie à tu une explication concernant le déplacement bizzarre du range("a1").

s

 

[PHILIPPE]

Merci Hervé, trop bon! je vais gagner tu temps...
bonne soirée et encore merci pour ce formidable forum aux administrateurs Novice avec excel je me prends de passion
salutations philippe.