fenetre qui continue une action ou l'annuleRésolu

Question

Bonjour, Pour découvrir le langage VBA Office je fais un petit programme qui copie des cellules d'une feuille (feuil1) et les colles sur une autre feuille (feuil2). Jusque là tout va bien !! j'ai rajouté une ligne qui vérifie qu'il n'y a rien dans la cellule de destination, le cas échéant, une fenêtre me demande si je veux continuer ou annuler. If Sheets("feuil2").Range("c" & (a + m)).Value <> "" ThenAttention.ShowEnd IfDoLoop While atention <> 0If atention = 1 ThenStopEnd IfIf atention = 2 Thenv = Sheets("Feuil1").Range("F12").ValueSheets("Feuil2").Range("C" & (a + m)).Value = vEnd If La fenetre attention me permet de continuer ou annuler Dim atention As IntegerPrivate Sub Annuler_Click()Unload MeSheets("Feuil1").SelectRange("F3").Selectatention = 1End SubPrivate Sub Continuer_click()Unload Meatention = 2End Sub Mon probleme : Que je choisisse annuler ou continuer les données ne sont pas copiées dans la nouvelle cellule. Je n'aime pas trop cette idée de boucle via Do et Loop, avez vous une meilleure idée ? Merci

ucfoutu · Answer

Bonjour,
Je vais me limiter (il y aurait beaucoup d'autres observations à faire, mais elles ne concernent pas directement ta question) au seul problème que tu soulèves :
si la variable attention n'est pas déclarée publique dans un module standard, elle n'est accessible que depuis le module de ton userform.

PS ! tu serais bien inspiré d'écrire :
Option Explicit
en toute première ligne (avant les sub, etc ...) de chaque module de code.
Si tu avais observé cette sage discipline, ton programme aurait dénoncé la variable attention du module où tu as écrit le premier code.
 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

paolo_m · Answer

Bon...
Tout d'abord j'ai rajouté Option Explicit (merci ucfoutu)
ensuite
j'ai changé mon approche :
si la cellule de destination est occupée:
If Sheets("feuil2").Range("c" & (a + m)).Value <> "" ThenAttention.ShowElsev = Sheets("Feuil1").Range("F12").ValueSheets("Feuil2").Range("C" & (a + m)).Value = vEnd If
Afin que ce soit le module de code Attention qui gère la copie ou non.
Option ExplicitDim v As IntegerPrivate Sub Annuler_Click()Unload MeSheets("Feuil1").SelectRange("F3").SelectEnd SubPrivate Sub Continuer_click()Unload Me'v = Sheets("Feuil1").Range("F12").Value'Sheets("Feuil2").Range("C" & (a + m)).Value = vGoTo Valider_ClickEnd Sub
Je pensais que definir v as Integer dans la feuille "ThisWorkbook" la définisait partout.
En fait NON !!!!

Y a t'il une commande qui permet de changer de module de code afin que le programme continue à une certaine ligne de cet autre module (ce que j'essaye de faire à la ligne 14) ?

ucfoutu · Answer

Je ne te comprends plus, notamment :
"dans la feuille "ThisWorkbook""
1) ThisWorkBook n'est pas une feuille, mais le classeur actif !
2) ta variable v, non déclarée publique dans un module standard, est inconnue depuis ton userform.
 3) :
v = Sheets("Feuil1").Range("F12").Value
Sheets("Feuil2").Range("C" & (a + m)).Value = v

n'est rien d'autre que :
Sheets("Feuil2").Range("C" & (a + m)).Value = Sheets("Feuil1").Range("F12").Value
j'ai l'impression que tu t'égares de plus en plus et que tu t'égares parce que t'échappent encore les rudiments mêmes du développement !
Je répugne en général à répondre à une question autre que celle posée (Fenetre qui continue une action ou l'annule), ce qui n'est pas le propos de ce forum, mais nous allons faire une exception.
Décris ce que tu veux faire TRES EXACTEMENT et tu  verras que tu n'as même pas besoin d'un userform pour cela !

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

ucfoutu · Answer

J'ai la (très) vague impression que ce que tu cherches à faire ressemblerait à ceci :

 titi = Sheets("feuil2").Range("c" & (a + m)).Value  toto = Sheets("Feuil1").Range("F12").Value  If titi = "" Then    Sheets("Feuil2").Range("C" & a + m).Value = toto  Else    If MsgBox("voulez-vous écraser " & titi, vbYesNo) = vbYes Then      Sheets("Feuil2").Range("C" & a + m).Value = toto    End If  End If
--
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

jordane45 · Answer

Bonjour,

Pour ce qui est de l'utilisation des variables GLOBALES ou, en VBA nommées PUBLIC :
http://silkyroad.developpez.com/VBA/LesVariables/#LV

Pour que la variable soit utilisable dans toutes les macros du projet, il faut utiliser l'instruction Public et la variable doit impérativement être placée en tête d'un module standard.

Public X As String

Sub Test()
   X = 10
End Sub

Sub LectureX()
   Msgbox X
End Sub

Sinon pour ce qui est de ton code..
Pourquoi passer, pour une simple question Continuer/annuler par un userform alors qu'une MsgBox ferait tout aussi bien l'affaire ?

Dim atention As Integer

If Sheets("feuil2").Range("c" & (a + m)).Value <> "" Then
  atention = MsgBox("La cellule : " & "c" & (a + m) & _
                    " n'est pas vide." & vbclrf & _
                    "Souhaitez-vous poursuivre ?", _
                    vbOKCancel)
 End If

If atention = 2 Then
   'On Sort de la sub
    Exit Sub
  Else
     Sheets("Feuil2").Range("C" & (a + m)).Value = Sheets("Feuil1").Range("F12").Value
  End If

Comme le dit Ucfoutu, il y a certainement d'autres choses à améliorer dans ton programme (mais sans en savoir plus ce sera difficile de te le dire).

Quoi qu'il en soit, concernant la question posée initialement "Fenetre qui continue une action ou l'annule" est, je pense, largement traitée.

Si tu rencontres de nouveaux soucis, n'hésites pas à ouvrir UNE NOUVELLE discussion sur le forum.
Et si les réponses données résolvent bien ton souci de départ..merci de penser à mettre cette discussion en RESOLUE.





Avant de poser une question, merci de lire la charte du site.
Cordialement, Jordane

jordane45 · Answer

Y a t'il une commande qui permet de changer de module de code afin que le programme continue à une certaine ligne de cet autre module (ce que j'essaye de faire à la ligne 14)

Il vaut mieux éviter au MAXIMUM d'utiliser des GOTO.

A la rigueur, tu peux découper ton programme en sous programmes et/ou fonctions pour les appeler lorsque tu le souhaites.
 
exemple :

If atention = 1 Then
   'On Sort de la sub
    Exit Sub
  Else
     Call copierCellule(a, m)
     msg = addition(a, m)
     Call afficherMessage(msg)
  End If

End Sub

Function addition(a As Double, b As Double) As Double
addition = a + b
End Function

Sub copierCellule(a, m)

Sheets("Feuil2").Range("C" & (a + m)).Value = Sheets("Feuil1").Range("F12").Value

End Sub

Sub afficherMessage(message)
MsgBox "Je viens de faire une addition dans un function et le resultat est :" & message
End Sub

paolo_m · Answer

Et voila cela fonctionne !
(je ne dirai pas à merveille vu que je suis novice mais bon !)
merci pour ton aide ucfoutu et en plus tu n'aura pas le besoin de te trainer dans la boue et faire tomber tes convictions (humour) car tu as réellement répondu à mon appel.
Encore merci.
Option ExplicitPublic a As IntegerPublic m As IntegerPublic v As IntegerPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)If ActiveCell.Address() = "$AL$6" ThenRange("G5:AK5").ClearContentsEnd IfIf ActiveCell.Address() = "$AL$5" Then    If Range("E3") = 2012 Then    a = 3    End If        If Range("E3") = 2013 Then    a = 16    End If        If Range("E3") = 2014 Then    a = 29    End If        If Range("F3") = "Janvier" Then    m = 0    End If        If Range("F3") = "Février" Then    m = 1    End If        If Range("F3") = "Mars" Then    m = 2    End If        If Range("F3") = "Avril" Then    m = 3    End If        If Range("F3") = "Mai" Then    m = 4    End If        If Range("F3") = "Juin" Then    m = 5    End If        If Range("F3") = "Juillet" Then    m = 6    End If        If Range("F3") = "Août" Then    m = 7    End If        If Range("F3") = "Septembre" Then    m = 8    End If        If Range("F3") = "Octobre" Then    m = 9    End If        If Range("F3") = "Novembre" Then    m = 10    End If        If Range("F3") = "Décembre" Then    m = 11    End If        v = Sheets("Feuil1").Range("F12").Value    If Sheets("feuil2").Range("c" & (a + m)).Value = "" Then        Sheets("Feuil2").Range("C" & (a + m)).Value = v     Else        If MsgBox("Attention, vous êtes sur le point de détruire des données déja existantes !", vbYesNo) = vbYes Then        Sheets("Feuil2").Range("C" & a + m).Value = v        End If     End IfEnd IfEnd Sub
Je pense qu'il existe un moyen de ne pas passer par une suite de If mais j'aime bien découvrir de cette façon

jordane45 · Answer

Edit 3 :*
Pour tes mois tu pourrais aussi passer par un tableau (array)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim arr As Variant
'Tableau contenant la liste de tes mois ( A compléter)
arr = Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet")

If Target.Address() = "$AL$6" Then
   Range("G5:AK5").ClearContents
End If

If Target.Address() = "$AL$5" Then
   '------------------------------------------
   ' recherche de l'année
   '----------------------------------
    Select case  Range("E3").value
      case 2012
         a = 3
      case 2013 
        a = 16
     case 2014
        a = 29
     case else
       'aucun de ces cas..
         msgbox "error !"
    End select

'------------------------------------------
    ' Recherche du mois dans le tableau
    '------------------------------------------
      Mois = Range("F3").Value
      On Error GoTo errMonth
      m = Application.Match(Mois, arr, False) - 1
    '------------------------------------------
    ' Le reste de ton programme
    '------------------------------------------
     v = Sheets("Feuil1").Range("F12").Value

If Sheets("feuil2").Range("c" & (a + m)).Value = "" Then
        Sheets("Feuil2").Range("C" & (a + m)).Value = v
     Else
        If MsgBox("Attention, vous êtes sur le point de détruire des données déja existantes !", vbYesNo) = vbYes Then
        Sheets("Feuil2").Range("C" & a + m).Value = v
        End If
     End If
End If
'------------------------------------------
' Code à placer A la fin de ton Sub
'    Gestion des "Erreurs"
'------------------------------------------
 Exit Sub
errMonth:
 ' La valeur n'existe pas dans le tableau
 MsgBox "Le mois demandé " & Mois & " n'existe pas"
 Exit Sub

End Sub

ucfoutu · Answer

Qu'afficherait :
m = Month("01 " & Range("F3").Text & " 2000") -1msgbox m
(où 2000 pourrait être remplacé par n'importe quel millésime de ce siècle) ?
Ce qui n'affranchit pas, bien sûr, de la gestion d'erreur telle que vue.

Cette manière de procéder a un avantage supplémentaire, par rapport à l'array : elle n'exige pas l'observation d'une casse rigoureuse en F3

Et qu'afficherait par ailleurs ceci  ? :
a = (Range("E3").Value Mod 2012) + 3 + (12 * (Range("E3").Value - 2012))MsgBox a

ou encore (plus simple)  ceci :
a = (13 * (Range("E3").Value - 2012)) + 3MsgBox a
 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

Fenetre qui continue une action ou l'annule

9 réponses

Votre réponse