Création d'un bouton en boucle

Résolu

siamens_duj Messages postés 192 Date d'inscription Statut Membre Dernière intervention -
diablo13800 Messages postés 2890 Date d'inscription Statut Membre Dernière intervention - 28 oct. 2015 à 14:55

Bonjour,

Je débute en VBA et je suis bloqué sur un petit problème :

J'aimerais faire un code pour dire " Tant que la case D1, D2, D3 ... n'est PAS vide, créer un bouton" .
Je veux placer ces boutons à côté des cases D qui ne sont pas vide.
Normalement ce code, je pense aurait du le faire mais j'ai du commettre une erreur car cela ne fonctionne pas.

Private Sub CommandButton3_Click()
Do While Range("D").Value <> " "
Sub Macro()
    ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
        , DisplayAsIcon:=False, Left:=370.5, Top:=114.75, Width:=72, Height:= _
        24).Select
    Selection.ShapeRange.IncrementLeft -39#
    Selection.ShapeRange.IncrementTop -11.25
End Sub

End Sub

Merci pour votre aide.

Afficher la suite

A voir également:

Création d'un bouton en boucle
Creation compte gmail - Guide
Création site web - Guide
Création d'un compte google - Guide
Media creation tool - Télécharger - Systèmes d'exploitation
Bouton reinitialisation pc - Guide

3 réponses

Réponse 1 / 3

diablo13800 Messages postés 2890 Date d'inscription Statut Membre Dernière intervention 1 860

Test avec ceci Ça peut marcher

ThisWorkbook.Activesheet("Feuil1").Range(D1;D900)
i=1
do While i<900 
    if thisWorkbook.activesheet("Feuil1").Cells(i;4).Value <> ""
    ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
        , DisplayAsIcon:=False, Left:=370.5, Top:=114.75, Width:=72, Height:= _
        24).Select
    Selection.ShapeRange.IncrementLeft -39#
    Selection.ShapeRange.IncrementTop -11.25
    i=i+1
    Else
       End Sub
    End If
Loop

End Sub

siamens_duj Messages postés 192 Date d'inscription Statut Membre Dernière intervention 7

Cette ligne se met en jaune

ThisWorkbook.ActiveSheet("Feuil1").Range ("D1:D900")

Sauriez vous pourquoi ?

diablo13800 Messages postés 2890 Date d'inscription Statut Membre Dernière intervention 1 860 > siamens_duj Messages postés 192 Date d'inscription Statut Membre Dernière intervention

Il te dit quoi au niveau de l'erreur? Problème de syntaxe?

siamens_duj Messages postés 192 Date d'inscription Statut Membre Dernière intervention 7

Il me met un code d'erreur et me dit "Propriété ou méthode non gérée"

diablo13800 Messages postés 2890 Date d'inscription Statut Membre Dernière intervention 1 860

Ok Celle-ci fonctionne correctement , a toi d'adapter Suivant le décalage Verticale que tu veux

Sub macroBouton()


i = 1
BLeft = 370.5
BTop = 114.75
BWidth = 72
BHeight = 24
Do While i < 900

    If Cells(i, 4).Value <> "" Then
    
    ActiveSheet.Buttons.Add(BLeft, BTop, BWidth, BHeight).Select
    BTop = BTop + 11.25
    i = i + 1
    Else
        MsgBox ("On est a la fin la")
        GoTo Fin:
    End If
Loop
Fin:
End Sub

N'oublie pas de rajouter un : Selection.OnAction = "Nom_De_La_Macro_A_Affecter" Si tu veux définir une action au clic des bouton:) et a supprimer le MsgBox qui indique la fin de la macro

siamens_duj Messages postés 192 Date d'inscription Statut Membre Dernière intervention 7

Super ça fonctionne merci beaucoup !!!

Réponse 2 / 3

diablo13800 Messages postés 2890 Date d'inscription Statut Membre Dernière intervention 1 860

Bonjour,

Je pense que tu dois mettre ta boucle dans la macro et non à l'extérieur

Private Sub CommandButton3_Click()

Do While Range("D").Value <> " "

    ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
        , DisplayAsIcon:=False, Left:=370.5, Top:=114.75, Width:=72, Height:= _
        24).Select
    Selection.ShapeRange.IncrementLeft -39#
    Selection.ShapeRange.IncrementTop -11.25

Loop

End Sub

Essaie comme ça ( n'oublie pas le ctrl+ pause dans le cas ou ça boucle a l'infinie )

Réponse 3 / 3

siamens_duj Messages postés 192 Date d'inscription Statut Membre Dernière intervention 7

Merci pout cette réponse rapide !

comme ça ? :

Private Sub CommandButton3_Click()
Do While Range("D").Value <> " "
    ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
        , DisplayAsIcon:=False, Left:=370.5, Top:=114.75, Width:=72, Height:= _
        24).Select
    Selection.ShapeRange.IncrementLeft -39#
    Selection.ShapeRange.IncrementTop -11.25

End Sub

Là il me dit "Do sans boucle"

diablo13800 Messages postés 2890 Date d'inscription Statut Membre Dernière intervention 1 860

Oublie pas le "Loop" avant ton "End sub" pour dire quand ta boucle "Do While" s'arrête :)

siamens_duj Messages postés 192 Date d'inscription Statut Membre Dernière intervention 7

Oui après réflexion je me suis bien dit qu'il me manquait quelque chose ! ^^
Apparemment il y aurait une erreur dans :

Do While Range("D").Value <> " "

car il me le surligne en jaune.
Sauriez vous me dire si ma syntaxe est bonne ?

Encore merci.

Discussions similaires

Où est la touche SHIFT sur mon clavier d'ordi ?

Quel est la touche shift sur le clavier

Bouton ON OFF, O ou I ?

Mon pc s'allume et s'éteint en boucle

Votre réponse

Discussions similaires