Discussion :

[charluche]

Bonjour a tous,
je viens de me mettre a vba et je ne vous cache pas que je suis perdu.
En mon code fonctionne correctement pour le moment. En revanche il faudrait que je puisse supprimer les cellules contenant les informations de mon inputbox quand je supprime la forme qui lui est associe. Par exemple, si je supprime la 10eme forme que j ai faite je souhaiterai que les cellules d11 et e11 soit supprimees de maniere a ce que les informations relatives a la forme 12 soient maintenant affichees dans les cellules d11 et e11.
Voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 Sub Conteneur()
 
    Static Ligne As Long
 
    ' Ajout de titres pour coordonnées
    Range("D1:E1") = Array("Hauteur", "Poids")
    ' Cellule de reference
    Range("C1").Select
    ' Initialisation des compteurs
    Ligne = (Ligne + 1): Colonne = 1
 
    ' Informations sur le conteneur
    Longueur = InputBox("Longueur du conteneur en metre, si vous ne connaissez pas la longueur exacte, tapez 1 et ajustez manuellement avec les poignees.", "Longueur du conteneur", "1")
    Largeur = InputBox("Largeur du conteneur en metre, si vous ne connaissez pas la longueur exacte, tapez 1 et ajustez manuellement avec les poignees.", "Largeur du conteneur", "1")
    Hauteur = InputBox("Hauteur du conteneur en metre, cette hauteur sera automatiquement ponderee du coefficient 2/3 pour le calcul du KG.", "Hauteur du conteneur")
    Poids = InputBox("Poids du conteneur en tonnes.", "Poids du conteneur")
    ActiveCell.Offset(Ligne, Colonne) = Hauteur
    ActiveCell.Offset(Ligne, Colonne + 1) = Poids
 
    ' Dessin de la forme
    Set myDocument = Worksheets(1)
    With myDocument.Shapes
        .AddShape msoShapeRectangle, 5, 5, Longueur, Largeur
    End With
    Set myDocument = Nothing
 
End Sub

Merci de votre aide.
Charluche

[COCONUT2]

salut

Je pense que la fonction supprimer et la fonction ajouter sont 2 fonctions différentes.
donc soit,
tu crées une nouvelle fonction qui s'appelle supprimer une forme de conteneur,
soit tu integres un paragraphe de recherche qui va indiquer que le couple Hauteur largeur a déjà été proposé mais
avec une hauteur identique (pas de création de doublon dans les déclarations)
ou différente avec la demande de vérification (il est possible que 2 conteneurs aient des hauteurs différentes avec une meme base).

[charluche]

Rebonjour,
je ne sais pas si c est possible car je ne maitrise pas du tout vba, d associer la forme et les donnees de facon a ce que les cellules soient automatiquement supprimees quand je supprime la forme?
Encore une fois, je suis un neophite...
Merci de ton interet.
Charluche