Forum Discussion
macro VBA excel nommer une cellule
Dans une macro, je veux donner un nom à une cellule donnée, à savoir celle où je suis au lancement de la macro. si je laisse "range", avec des références absolues, la macro fonctionne, mais une seul...
Peut-être:
Dim s As String Dim reto As Range Set reto = Selection Do s = InputBox("Scannez le document, puis cliquez sur 'OK'; en fin de série, cliquez sur OK! ", " Enregistrement du retour ") If s = "" Then Exit Do Application.Goto Reference:="codbarretour" Do While ActiveCell > 0 ActiveCell.Offset(1, 0).Activate Loop reto.Select reto.Formula = s ActiveCell.Offset(0, 10).Activate Range(ActiveCell, Range("chrono")).Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues ActiveCell.Offset(0, -12).Activate Loop
Encore merci!
Mais je ne vais pas continuer à vous solliciter ainsi sans arrêt...
Auriez vous un site ou un bouquin à me conseiller?
ceux que j'ai trouvés sur le net ne sont pas très satisfaisants, du moins pour mon (très faible) niveau!
Mais je ne vais pas continuer à vous solliciter ainsi sans arrêt...
Auriez vous un site ou un bouquin à me conseiller?
ceux que j'ai trouvés sur le net ne sont pas très satisfaisants, du moins pour mon (très faible) niveau!
Un site en anglais: Excel Easy
- J'avais pourtant promis, mais le livre commandé n'arrivera que la semaine prochaine!
Je bute sur une action:
------------------------------
Application.ScreenUpdating = False
Application.Goto Reference:="modpass"
Dim mdp As String
mdp = InputBox("Saisissez le mot de passe!", "Action protégée par mot de passe.")
If mdp <> "biblio" Then
MsgBox "mot de passe incorrect!"
End If
If MsgBox("Cette action va réinitialiser la grille; es données enregistrées seront conservées. Elle peut être renouvelée à tout moment. Si c'est ce que vous souhaitez faire, cliquez sur 'Oui', sinon sur 'Non'.", vbYesNo, "demande de confirmation") = vbNo Then
MsgBox "Réinitialisation abandonnée!"
End If
Application.Goto Reference:="sauvcodbarre"
---------------------------------
A chaque fois, le message s'affiche mais... la macro continue imperturbablement!
Que faire pour qu'elle s'arrête si 1/ le mot de passe est incorrect; 2/ si la réponse est non à la deuxième question? (même problème, je suppose!)
Cette fois ci, c'est vraiment promis!!!C'est pas grave.
Essayez
Application.ScreenUpdating = False Application.Goto Reference:="modpass" Dim mdp As String mdp = InputBox("Saisissez le mot de passe!", "Action protégée par mot de passe.") If mdp <> "biblio" Then MsgBox "mot de passe incorrect!" Application.ScreenUpdating = True Exit Sub End If If MsgBox("Cette action va réinitialiser la grille; es données enregistrées seront conservées. " & _ "Elle peut être renouvelée à tout moment. Si c'est ce que vous souhaitez faire, " & _ "cliquez sur 'Oui', sinon sur 'Non'.", vbYesNo, "Demande de confirmation") = vbNo Then MsgBox "Réinitialisation abandonnée!" Application.ScreenUpdating = True Exit Sub End If Application.Goto Reference:="sauvcodbarre"- Bonsoir,
Je sais, je n'ai aucune parole... Mais il y va de mon sommeil!!!
j'ai écrit ceci:
-----------------------
Dim s As String
s = InputBox("Scannez le document, puis cliquez sur 'OK'; en fin de série, cliquez sur OK! ", " Enregistrement du retour ")
If s = "" Then Exit Sub
Application.Goto Reference:="codbarretour"
Do While ActiveCell > 0
ActiveCell.Offset(1, 0).Activate
Loop
Dim reto As Range
Set reto = Selection
reto.Select
reto.Formula = s
ActiveCell.Offset(0, 10).Activate
Range(ActiveCell, Range("chrono")).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, -12).Activate
End Sub
-----------------------------------
Et je souhaiterais que, à la fin du processus, tant que s est différent de zéro, la macro reprenne au niveau de l'input box.
J'ai cherché partout, sans succès!
- Merci!
