Aide compteur et boutons recherche. VBA

[Galactica]

Bonjour ou Bonsoir,

Voila Je me présente un peut, Je vis au Brésil ou j'ai télécharger un Fichier un Excel
et que j'ai modifier a mes besoins plus ou moins.

Mais je ne connais rien de rien en Macro alors si une personne avec un peut de temp pour regarder mon fichier je le remercie d'avance.
Bien sur c'est un fichier en langue portugaise ...

Voila ce que je voudrais que le compteur des facture augmente automatiquement, tipe
001-2011 002-2011 ect ect

Crée un bouton pour enregistrer, un bouton des données, et un bouton imprimer..

Si c'est trop compliquer pour le moins uniquement , les numero de facture ce serais vraiment très très bien.

Merci a toutes personnes qui me donne un coup de main.

 

[Staple1600]

Re : Aide compteur et boutons recherche. VBA

Bonsoir et bienvenue Galactica

Tu es francophone?

J'ai ouvert ton fichier

Private Sub Workbook_Open()
compteur = Sheets("Feuil1").Range("a1")
[a1] = compteur + 1
End Sub

n'est pas à la bonne place
Cela doit être dans ThisWorkBook pas dans un module standard

 

[Staple1600]

Re : Aide compteur et boutons recherche. VBA

Re

Pour correspondre à ton fichier (j'ai renommé ta feuille en Recibo sans espace)
Ce code devrait mieux focntionner

Private Sub Workbook_Open()
Dim compteur As Long
With Sheets("Recibo")
compteur = Val(Left(.Range("M3").Text, 3))
    With .[M3]
        .Value = compteur + 1
        .NumberFormat = "000""-2011"""
    End With
End With
End Sub

Toujours à mettre dans ThisWorkBook (pas dans un module standard)

 

[Galactica]

Re : Aide compteur et boutons recherche. VBA

Eu Eu Merci , il faut dire que j'ai essayer pas mal de truc mais je ne savais même pas que j'avais reussi a mettre une macro .LOL
Alors il faut m'aider un peut , avez vous corrigé l'erreur ? ou puige télécharger le fichier corrigé. (Oui je sais je suis nul.. )

MERCI beaucoup pour votre réponse plus que rapide..

 

[Staple1600]

Re : Aide compteur et boutons recherche. VBA

Re

Il n'y a rien à télécharger
(il y a belle lurette que je ne joints plus intentionnellement de fichier xls dans mes réponses)

Il te suffit de copier/coller dans ThisWorkBook le code corrigé dans mon précédent message.

Se prétendre nul en quelquechose n’empêche pas d'être autonome et de notamment utilisé les outils disponibles sur le net
(comme un moteur de recherche)

 

[Galactica]

Re : Aide compteur et boutons recherche. VBA

Merci
Alors voila j'ai coller ton code dans ThisWorkBook et quand j'ouvre mon fichier il me dit

Erreur d'exécution '9' L'indice n'appartient pas à la sélection.

Eu je fait quoi maintenant ???

 

[Galactica]

Re : Aide compteur et boutons recherche. VBA

Eu autre chose quand je fait debogage la fen^tre VBA s'ouvre et il souligne en JAUNE With Sheets("Recibo")

voila

 

[Staple1600]

Re : Aide compteur et boutons recherche. VBA

Re

Tu chausses tes lunettes et tu relis ceci 😉

Pour correspondre à ton fichier (j'ai renommé ta feuille en Recibo sans espace)

...car il y avait un espace à la fin de Recibo

 

[Galactica]

Re : Aide compteur et boutons recherche. VBA

LOL ça marche je suis super content merci beaucoup.
Encore une question dans mon 2eme Recibo la case M26 il y a uniquement 1 coment faire pour qua ca indique la meme chose que la case M3 ??

Et pourquoi quand je protège la feuille et je lance le fichier il m'indique erreur 1000

Merci

 

[Galactica]

Re : Aide compteur et boutons recherche. VBA

fichier joint

 

[Staple1600]

Re : Aide compteur et boutons recherche. VBA

Re

Et pourquoi quand je protège la feuille et je lance le fichier il m'indique erreur 1000

Tu sais ce que je vais te dire
Une question -> iclik sur la loupe et il essaie de voir si il peut se dépatouiller un chouia tout seul comme un grand 😉
Un indice pour t'aider : UserInterFaceOnly

 

[Galactica]

Re : Aide compteur et boutons recherche. VBA

Ok j'ai trouvé 😉

Voila alors maintenant , j'ai crée un bouton pour imprimer mon recibo ,
ca marche mais quand je clique dessus le programe visual basic s'ouvre .. voici le code que j'ai trouvé et modifier.

que faire ?

Sub Bouton1303_Clic()
'
' Bouton1303_Clic Macro
'
Sheets("Recibo").PrintOut
'
Application.Goto Reference:="Bouton1303_Clic"
ActiveWindow.SmallScroll Down:=-9
End Sub

comment faire pour que visual basic ne s'ouvre pas ?

 

[Staple1600]

Re : Aide compteur et boutons recherche. VBA

Bonjour

Pour ta question, modife ainsi et fais le test.

Sub Bouton1303_Clic()
Sheets("Recibo").PrintOut
End Sub

PS: Content que tu cherches à te dépatouiller seul.

 

[Galactica]

Re : Aide compteur et boutons recherche. VBA

Ben ça va beaucoup mieux Merci...
Maintenant encore beaucoup de chose a te demander si tu le veut bien.....

Dans mon Recibo en haut le numero de facture est 001-2011 pour le doublon de recibo sur la cellule j'ai mis =M3&"" pour qu'il copie la valeur de la cellule M3 mais il il m'indique que Numero Facture 1 ???

que faut il modifier pour qu'il apparet 001-2011 la meme valeur que la case M3

Private Sub Workbook_Open()
Dim compteur As Long
ActiveSheet.Protect UserInterfaceOnly:=True
With Sheets("Recibo")
compteur = Val(Left(.Range("M3").Text, 3))
With .[M3]
.Value = compteur + 1
.NumberFormat = "000""-2012"""

End With
End With
End Sub