Macro visual Basic sur excel
didwin
Messages postés
56
Date d'inscription
Statut
Membre
Dernière intervention
-
didwin -
didwin -
Bonjour,
Je voudrais faire un échéancier sur excel cu que c est un tableur cela devrait être simple. Je voudrais un style zonelist ou tu indique le montant que tu régles et le systéme doit être capable de ranger cette information en D2 + la date de réglement mais si D2 est déja pris il doit alors la mettre en d3 etc
Merci par avance de votre aide
Didwin
Je voudrais faire un échéancier sur excel cu que c est un tableur cela devrait être simple. Je voudrais un style zonelist ou tu indique le montant que tu régles et le systéme doit être capable de ranger cette information en D2 + la date de réglement mais si D2 est déja pris il doit alors la mettre en d3 etc
Merci par avance de votre aide
Didwin
A voir également:
- Macro visual Basic sur excel
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Visual basic - Télécharger - Langages
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Microsoft 365 basic - Accueil - Microsoft Office
6 réponses
Bonjour,
ça ne serait pas plus simple que tu regardes la 1ere case de vide de la colonne B et avec ta souris cliquer dessus?
Parce du code pour voir si une case est vide, c'est riche.
Sinon j'ai tres mal compris ta requette. Dans ce dernier cas Pourrais tu nous eclaircir un peut mieux.
cordialement
ça ne serait pas plus simple que tu regardes la 1ere case de vide de la colonne B et avec ta souris cliquer dessus?
Parce du code pour voir si une case est vide, c'est riche.
Sinon j'ai tres mal compris ta requette. Dans ce dernier cas Pourrais tu nous eclaircir un peut mieux.
cordialement
re
quelque chose com ca serais le plus simple
i=1
miseajour = false
do until i = 1 or miseajour = false
if cells(i,4).value <>"" then
...
...
...
miseajour = true
else
i = i+1
end if
loop
quelque chose com ca serais le plus simple
i=1
miseajour = false
do until i = 1 or miseajour = false
if cells(i,4).value <>"" then
...
...
...
miseajour = true
else
i = i+1
end if
loop
Bonjour
essaies cette macro qui te demande le montant puis la date de prise en compte
le montant s'écrit dans la colonne D et la date dans la colonne E à la 1° ligne vide
Pour installer (XL<2007)
fais un "copier" de cette macro
va dans VBE avec Alt+F11
insertion-module
coller
retourne sur ta feuille
dans barre d'outils formulaire sélectionne le bouton et dessine le sur la feuille
et affecte le à la macro
essaies cette macro qui te demande le montant puis la date de prise en compte
le montant s'écrit dans la colonne D et la date dans la colonne E à la 1° ligne vide
Sub rembourser()
Dim montant, jour, ligvide As Integer
montant = InputBox("montant à inscrire")
If montant = "" Or Not IsNumeric(montant) Then Exit Sub
jour = InputBox("date de prise en compte sous la forme jj/mm/aa")
If Not jour Like "##/##/##" Then Exit Sub
ligvide = Range("D1000").End(xlUp).Row + 1
Cells(ligvide, 4) = montant
Cells(ligvide, 5) = Format(jour, "dd/mm/yy")
End Sub
Pour installer (XL<2007)
fais un "copier" de cette macro
va dans VBE avec Alt+F11
insertion-module
coller
retourne sur ta feuille
dans barre d'outils formulaire sélectionne le bouton et dessine le sur la feuille
et affecte le à la macro
Bonjour,
les plus simple serait d'executer le code en étant déjà sur la feuille voulue (ce code fonctionne sur la feuille active)
Sinon, modifier comme ceci :
les plus simple serait d'executer le code en étant déjà sur la feuille voulue (ce code fonctionne sur la feuille active)
Sinon, modifier comme ceci :
Sub rembourser()
Dim montant, jour, ligvide As Integer
montant = InputBox("montant à inscrire")
If montant = "" Or Not IsNumeric(montant) Then Exit Sub
jour = InputBox("date de prise en compte sous la forme jj/mm/aa")
If Not jour Like "##/##/##" Then Exit Sub
Sheets("échéancier").Activate
ligvide = Range("D1000").End(xlUp).Row + 1
Cells(ligvide, 4) = montant
Cells(ligvide, 5) = Format(jour, "dd/mm/yy")
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
et bien sur mise a jour du champ ou tu rentre t info tu met le code suivant:
i=1
miseajour = false
do until i = 1 or miseajour = false
if worsheets"nom de ta feuille".cells(i,4).value ="" then
worsheets"nom de ta feuille".cells(i,4).value = montant tapé je ne c pas ou
miseajour = true
else
i = i+1
end if
loop
i=1
miseajour = false
do until i = 1 or miseajour = false
if worsheets"nom de ta feuille".cells(i,4).value ="" then
worsheets"nom de ta feuille".cells(i,4).value = montant tapé je ne c pas ou
miseajour = true
else
i = i+1
end if
loop
Alors je vais essayer d'être clair dans mon exemple : voila j ai un prêt de 4500 euros . Ce mois, je veux enregistrer un paiement de 150 euros donc cette somme dois s incrire (exemple en b5) Dans la colonne B vont figurer tous mes remboursements. Donc le premier va aller dans b5 alors je voudrais une petite macro qui indique que si B5 est déja pris qu il mette l'information en B6 et ainsi de suite.
J espère que tu arrives a voir ce que je veux dire sinon recontacte moi.
Bonnes fetes de fin d années
Didwin