Mon programme ne s'arrête pasRésolu

Question

Bonjour,
J'ai un petit souchis, j'ai d&#233;velopp&#233; un petit prog, sur VB Excel sur Mac (je sais, j'aurais pas d&#251; !) avec entre autres, un bouton "Quitter" qui devrait donc quitter quand je le lance depuis Excel mais ne le fait pas en revanche il marche tr&#232;s bien depuis le mode cr&#233;ation ??? avez vous une solution SVP. Merci

PCPT · Accepted Answer

unload me

oubien unload nom_de_ta_userform



et tes conditions sont fausses?!! (dans bouton 1)

si > " " ? tu regardes si la lettre est > &#224; un espace ?



et tu r&#233;cup&#232;res la taille dans une string?

bon, tu as dis que c'&#233;tait en d&#233;buggage, donc bon courage ;)

cs_Willi · Answer

Bonjour,
Peux tu nous donner le code que tu as dans ce bouton quitter ?

Jumbito · Answer

Bonjour,
Le voici :

Private Sub quitter_Click()
End
End Sub

PCPT · Answer

la m&#233;thode de Jumbito est totalement d&#233;conseill&#233;e!!

le END est une fin frutale sans aucun d&#233;chargement m&#233;moire.


comme le demande Willi, il nous faut ton code pour t'aider.


++

Jumbito · Answer

Ok, je vous le met tout cru, il n'est pas nettoy&#233; et en cour de d&#233;buggage il y a juste ce quitter qui me prend la t&#234;te, d'ailleur ce end appara&#238;t  aussi &#224; la fin du "reclass_bouton_Click" avec le m&#234;me non effet ! il faut que je pr&#233;cise que j'ai &#233;galement essayer un End Sub, et rien. voici le code :
merci d'avance

Dim kw1, kw2, kw3, kwt As String
Dim sepa As String
Dim Message1, Titre1, Valeur1
Dim len_kwt As String

Private Sub CommandButton1_Click()


 Message1 = "Entrez le nombre de lignes contenant des 'keywords'"
  Titre1 = "Nombre de lignes"
  Valeur1 = InputBox(Message1, Titre1)
  
Range("C5").Select

   For x = 1 To Valeur1
        kw1 = ActiveCell.Formula
        Selection.ClearContents
    ActiveCell.Offset(0, 1).Select
        kw2 = ActiveCell.Formula
        Selection.ClearContents
    ActiveCell.Offset(0, 1).Select
        kw3 = ActiveCell.Formula
        Selection.ClearContents
    ActiveCell.Offset(0, -2).Select
    
If kw1 > " " Then
    kw1 = kw1 + " "
Else
    kw1 = kw1
End If

If kw2 > " " Then
    kw2 = kw2
Else
    kw2 = kw2
End If
If kw3 > " " And kw2 > " " Then
    kw3 = " " + kw3
Else
    kw3 = kw3
End If

kwt = kw1 + kw2 + kw3

len_kwt = Right(kwt, 1)
'MsgBox "contenu de la variable len_kwt " & len_kwt, vbInformation + vbOKOnly


     ActiveCell.Formula = kwt
    ActiveCell.Offset(1, 0).Select
  
  Next x
  
    
End Sub

Private Sub Quitter_Click()
End
End Sub

Private Sub reclass_bouton_Click()



'-------suppression des colonne keywords vid&#233;s
    Columns("D:E").Select
    Selection.Delete Shift:=xlToLeft

    
'-------D&#233;placement de la colonne ID_photo
    Columns("I:I").Select
    Selection.Cut
    Columns("A:A").Select
    Selection.Insert Shift:=xlToRight
    
    
'-------D&#233;placement de la colonne ID_pays
    Columns("F:F").Select
    Selection.Cut
    Columns("B:B").Select
    Selection.Insert Shift:=xlToRight
    
    
'-------D&#233;placement de la colonne ID_categorie
    Columns("D:D").Select
    Selection.Cut
    Columns("C:C").Select
    Selection.Insert Shift:=xlToRight

    
'-------Insertion d'1 colonne vide (title)
    Columns("D:D").Select
    Selection.Insert Shift:=xlToRight
    'Columns("E:E").ColumnWidth = 14
    Columns("D:D").ColumnWidth = 14
    
    Rows("1:3").Select
    Selection.Delete Shift:=xlUp
    
       
Range("A2").Select
End

End Sub

Jumbito · Answer

SUPER !!! 
Unload Me &#231;a marche !
Un grand Merci
maintenant je vais effectivement n&#233;ttoyer tout &#231;a !  ; )

PCPT · Answer

pense &#224; valider, et n'h&#233;site pas &#224; donner suite ici si tu as besoin de pistes pour ton nettoyage...

@+

Jumbito · Answer

Oops! voila je valide
Merci
@+

PCPT · Answer

logiquement on valide l&#224; ou les r&#233;ponses qui solutionnent le probl&#232;me mais bon, tant que c'est vert...

bonne continuation  @+

Jumbito · Answer

D&#233;sol&#233;, comme tu as pu le remarquer je suis un peu novice...
Une derni&#232;re question, y a-t-il un moyen pour rendre ce programme ind&#233;pendant d'un classeur, qu'il le soit juste de Excel donc qui marche avec toutes feuille ou classeur ?
Et doi-je valider quand m&#234;me la r&#233;ponse au dessus ?
Merci encore

PCPT · Answer

pour le classeur en lui-m&#234;me, aucune id&#233;e, je ne touche pas &#224; VBA.

une appli qui communiquerait avec excel sans y &#234;tre attach&#233;e, &#231;&#224; serait du VB(6), donc pas une macro.



pour la validation, c'est essentiellement pour que les futurs lecteurs
ayant le m&#234;me probl&#232;me aillent directement sur la solution.

fait ce qui te parra&#238;t logique...

Mon programme ne s'arrête pas

11 réponses

Discussions similaires