Ecrire dans une msgbox le contenu d'une sélection

Version imprimable

Bonjour,

Plus que novice en VBA est après de nombreuses recherches infructueuses je cherche a écrire dans une msgbox le contenu des cellules B,C,D,E,F,G de la ligne que j'ai sélectionnée avant de l'effacer.
Merci d'avance pour votre aide

Voici mon code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub EffaceLigneTableau1()
 
With Selection
 
    If .Columns.Count > 50 And Selection.Row > 5 Then   
 
        If msgbox("Confirmez-vous la supression de la ligne", vbYesNo + vbCritical, "Suppression ligne") = vbYes Then
            ActiveSheet.Rows(ActiveCell.Row).EntireRow.Delete
        End If
 
    Else
        msgbox "Veuillez sélectionner une ligne compléte" & vbLf & "Les lignes 1 à 4 ne sont pas autorisées", vbInformation, "Information"
    End If
End With
 
End Sub

22/01/2020, 11h45
mat955

Bonjour,

Tu peux mettre ce que tu veux dans ta Msgbox, il suffit de concaténer les éléments avec des esperluettes (le signe &).

exemple :

Code:

msgbox("Confirmez-vous la supression de la ligne " & Selection.Row , vbYesNo + vbCritical, "Suppression ligne")

Ou encore

Code:

msgbox("Vous avez sélectionné la cellule " & Cellule.Address & ". Elle contient la valeur : " & Cellule.value , vbYesNo + vbCritical, "Suppression ligne")

Ce qu'il faut retenir, c'est que le texte doit se mettre entre guillemets, alors que les objets/variables/etc ne doit pas se mettre entre guillemets.

Re,

Et pour récupérer la valeur des cellules de la ligne sélectionnée :

Code:

1
2
Cells(selection.row, 1).value  'renvoie la valeur de la cellule de la première colonne de la ligne sélectionnée
Cells(selection.row, 4).value  'renvoie la valeur de la cellule de la quatrième colonne de la ligne sélectionnée

Merci pour ta réponse rapide
Ta deuxième proposition correspond a ce que je souhaite faire mais étant plus que novice en VBA j'ai essayé d’écrire le code que tu m'a indiqué a savoir
Code:

1 2 ells(selection.row, 1).value 'renvoie la valeur de la cellule de la première colonne de la ligne sélectionnée Cells(selection.row, 4).value 'renvoie la valeur de la cellule de la quatrième colonne de la ligne sélectionnée
a plusieurs endroit dans la macro mais rien n'y fait :-(

Peut tu m'indiquer ou écrire cette partie de code pour pouvoir récupérer la valeur de mes cellules dans la msgbox

Merci d'avance

22/01/2020, 14h47
mat955

Re,

Tout dépend de ce que tu veux exactement afficher dans ta msgbox.
Tu veux écrire du texte, puis la valeur de tes cellules les unes à la suite des autres ?
Comment souhaites-tu organiser les données?
22/01/2020, 15h22
tico06

1 pièce(s) jointe(s)

Cette macro va me servir a supprimer une ligne d'un tableau excel comportant des opérations bancaires.
Lorsque que l'utilisateur va cliquer sur ce bouton "supprimer" je souhaiterais que la msgbox lui indique, avant que la ligne soit supprimée, les informations qui ce trouve dedans.
Pour résumer voila le résultat que je souhaiterais :

Pièce jointe 532788

Merci d'avance
22/01/2020, 15h48
Igloobel

Bonjour à tous,

Je me permets d'ajouter mon grain sel en précisant qu'il existe depuis au moins la version 2000 ce que l'on appelle : Formulaire (qui, à moins que j'ai mal compris, répond à la demande).

depuis la version 2007 c'est caché mais pas disparu.

en version 2010 (je pense qu'en 2013 c'est pareil) pour le réutilisé il faut :
Option - Personnaliser le Ruban

sélectionner dans la liste déroulante (choisir les commandes dans les catégories suivantes) : Commandes non présentes dans le ruban

descendre dans la liste jusqu'à : Formulaire...

Une fois ajouté

pour l'utiliser il suffit de sélectionner le le tableau [Ctrl]+[*] ou [Ctrl]+[A] et on peut facilement sélectionnner un enregistrement(ligne), ajouter ou encore supprimer par les boutons qui sont associé au formulaire.

Pas de VBA tout dans Excel

Je me permets de montrer cette solution car tu as dis dans ton premier post :

Citation:

Plus que novice en VBA est après de nombreuses recherches infructueuses je cherche a écrire dans une msgbox le contenu des cellules B,C,D,E,F,G de la ligne que j'ai sélectionnée avant de l'effacer.
Merci d'avance pour votre aide...

Du coup ce n'est pas un msgbox mais un formulaire (mais l'avange c'est qu'il est tout prêt et fait pour ça, rien à faire sinon l'utiliser :mouarf:)

tu me dis si cela te convient ou pas
22/01/2020, 16h25
tico06

Igloobel bonjour,

Merci pour l'information.

Je connaissais le principe du formulaire qui est bien présent, suivant la manip que tu indique, sur la version 2013.
Ce classeur me sert a gérer les comptes d'une association l'intégralité des opérations se fais en excel (bilan, caisse, ...ect).
Ayant moins de temps pour m'occuper de cela des personnes beaucoup moins aguerrit a excel remplissent ce classeur.
Pour éviter les erreurs comme la suppressions par inadvertance de formules ect... j'ai essayer moderniser tout cela.
j'ai commencer par une page d’accueil avec des macros qui pointent sur les différents onglets, j'ai continué en ajoutant des userform permettant la saisie de différentes opérations via des listbox, combobox...ect.
ce qui ma permit de pouvoir verrouiller les différents onglets et les rendre impossibles a modifier sauf via les formulaires Userform.
Ma problématique est la suppression d'une ligne mal saisie toujours via une macro pour laisser mon classeur protégé.
Je t'avoue aussi que c'est aussi un challenge personnel très intéressant qui me fait découvrir une nouvelle facette d'excel.

Cordialement

Bonjour,
Mise à part ta demande initiale de construire un texte pour l'argument Prompt de la fonction MsgBox, je conseille vivement d'utiliser les boutons Oui, Non (vbYesNo) car sinon ton message "êtes vous sûr de....) ne sert à rien car l'utilisateur n'a d'autre choix que de cliquer sur le bouton OK et donc d'activer la suppression de la ligne. Et surtout mettre le focus sur le bouton Non

Exemple simple
Code:

1 2 3 4 5 6 7 8 9 Sub t() If MsgBox("Voulez-vous supprimer le ...", vbCritical + vbYesNo + vbDefaultButton2) = vbYes Then ' ici le code de suppression MsgBox "Suppression de " Else ' Eventuellement un autre code MsgBox "Pas de suppression" End If End Sub

22/01/2020, 16h59
Igloobel

Ok

du coup je te propose faire quelque chose de simple c'est :

1°) faire une boucle pour mettre toutes tes infos dans un tableau mémoire.
2°) faire une boucle pour créer le message en inérant toutes tes informations dans ledit tableau

l'instruction VbCrLf permet d'aller à la ligne sans le message du MsgBox

De plus j'utiliserai une Msgbox de type VBYesNo (2 boutons : oui - non)
du coup si tu as posé la question Peut'on supprimer ces informations? Tu peux récupérer la répondre et agir comme sereinement.

Voilà mes idées
22/01/2020, 18h27
tico06
Philippe bonjour,

D'accord avec toi c'est pour cela que pour sécuriser un peu plus la chose je souhaitais insérer a ce niveau du code (ci-dessous) de ma msgbox le récapitulatif des informations situés sur la ligne sélectionnée avant de cliquer sur oui pour la supprimer.
Code:

1 2 If msgbox("Confirmez-vous la supression de la ligne", vbYesNo + vbCritical, "Suppression ligne") = vbYes Then ActiveSheet.Rows(ActiveCell.Row).EntireRow.Delete
Igloobel,

Peut tu m'aiguiller un peu plus sur ta solution avec un exemple ?

Merci d'avance
22/01/2020, 18h36
Philippe Tulliez

Bonjour,

Citation:

Peut tu m'aiguiller un peu plus sur ta solution avec un exemple ?

Ma réponse était illustrée d'un exemple avec un code selon le schéma If .. Then...Else avec un commentaire disant "ici le code" et comme exemple un MsgBox si on répond Oui et un autre si on répond Non qui me semble t'il est suffisamment explicite pour que tu puisses te débrouiller

Donc dans mon exemple le code pour la suppression doit venir avant le Else, là où il y a le commentaire ' ici le code de suppression et où il y a la ligne de code MsgBox "Suppression de "

1 pièce(s) jointe(s)

Bonsoir…
Pour la demande formulée dans le titre, un exemple avec un tableau structuré (pleins de ressources, à consommer sans modération) et une ligne au hasard
Code:

1 2 3 4 5 6 7 8 Sub quoi() Dim T, n As Byte, M As String Dim L As Byte 'pour une ligne ici au hasard ici T = Array("Date", "Type", "Montant") L = Rnd() * 10 ‘ou à définir auparavant For n = 1 To 3: M = M & T(n - 1) & " : " & [Bd].Item(L, n) & vbLf: Next MsgBox M, , "en ligne " & L End Sub
Il faudra ajouter, après avoir déterminé la ligne voulue, sous le message, ton code de suppression.

2 pièce(s) jointe(s)

Citation:

Envoyé par tico06

... Igloobel,
Peut tu m'aiguiller un peu plus sur ta solution avec un exemple ?
Merci d'avance

En réfléchissant un peu plus ce matin (si, si, cela m'arrive :aie:) je m'aperçois que le tableau en mémoire ne sert à rien !
Donc voici mon exemple

Code:

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
'Imaginons que nous avons le tableau ci-dessous à titre d'exemple
 
'     A       B       C       D
'1   Nom   prénom1 prénom2 prénom3
'2   toto    titi    tutu    tata
'3   toto2   titi2   tutu2   tata2
'4   toto3   titi3   tutu3   tata3
'5   toto4   titi4   tutu4   tata4
'6   toto5   titi5   tutu5   tata5
'7   toto6   titi6   tutu6   tata6
'8   toto7   titi7   tutu7   tata7
'9   toto8   titi8   tutu8   tata8
'10  toto9   titi9   tutu9   tata9
'11  toto10  titi10  tutu10  tata10
'12  toto11  titi11  tutu11  tata11
'13  toto12  titi12  tutu12  tata12
'14  toto13  titi13  tutu13  tata13
'15  toto14  titi14  tutu14  tata14
'16  toto15  titi15  tutu15  tata15
'17  toto16  titi16  tutu16  tata16
'18  toto17  titi17  tutu17  tata17
'19  toto18  titi18  tutu18  tata18
'20  toto19  titi19  tutu19  tata19
 
'donc 4 colonnes dans cet exemple
 
Sub Lign_Selection()
    Dim Lign As Long         'N° de la ligne à supprimer
    Dim i As Long            'variable pour passer d'une colonne à une autre
    Dim Rep As Integer       'Tableau mémoire contenant le nombre de colonne reseignée
    Dim Plag As String       'Plage de la ligne à supprimer
    Dim Mess As String       'Message du MsgBox
 
    Lign = ActiveCell.Row 'récupération de la ligne sélectionnée
 
    'construction du message
    Mess = "Vous avez sélectionné la ligne " & Lign & vbCrLf
    Mess = Mess & vbCrLf & vbCrLf & "Voulez-vous supprimer cette ligne ?"
    Rep = MsgBox(Mess, vbYesNo + vbInformation + vbDefaultButton2, "Confirmation de suppression")
 
    If Rep = vbYes Then
        Plag = Lign & ":" & Lign
        Rows(Plag).Delete
    End If
End Sub

Et donc voici ce que cela donne :

Pièce jointe 532977

Maintenant on peut aussi améliorer le message en utilisant "vbTab" qui met une tabulation dans le messsage

On remplace

Code:

1
2
3
    For i = 1 To 4
        Mess = Mess & vbCrLf & Cells(1, i).Value & " : " & Cells(Lign, i).Value
    Next

par

Code:

1
2
3
    For i = 1 To 4
        Mess = Mess & vbCrLf & Cells(1, i).Value & vbTab & " : " & Cells(Lign, i).Value
    Next

Ce qui donne :

Pièce jointe 532979

Au top Igloobel c'est exactement cela que je cherchais
j'ai un peu modifié ton code car mon tableau ne commence pas comme le tiens mais tout fonctionne nickel
Encore merci

Je mets le code complet si cela peut service a d'autre

Encore merci a tous pour votre aide

Code:

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
'Bouton "supprimer opération comptable"
Sub EffaceLigneTableau()
 
'déprotege la feuille
ActiveSheet.Unprotect "xxxx"
 
With Selection
 
    'test si la selection est une ligne et qu'elle n'est pas comprise dans les 5 prmeieres lignes du tableau
    If .Columns.Count > 50 And .Columns.Count > 1 And Selection.Row > 5 Then
 
    'si oui affiche la boite de dialogue de suppression de la ligne
            Dim Lign As Long         'N° de la ligne à supprimer
           Dim i As Long            'variable pour passer d'une colonne à une autre
           Dim Rep As Integer       'Tableau mémoire contenant le nombre de colonne reseignée
           Dim Plag As String       'Plage de la ligne à supprimer
           Dim Mess As String       'Message du MsgBox
 
           Lign = ActiveCell.Row 'récupération de la ligne sélectionnée
 
           'construction du message
           For i = 2 To 7 'définit le nombre de colone
           Mess = Mess & vbCrLf & Cells(4, i).Value & " : " & Cells(Lign, i).Value 'cells(4,i) définit la zone d'entête
           Next
           Mess = Mess & vbCrLf & vbCrLf & "Voulez-vous supprimer cette opération ?"
           Rep = MsgBox(Mess, vbYesNo + vbInformation + vbDefaultButton2, "Confirmation de suppression d'une opération")
           'supprime la ligne
           If Rep = vbYes Then
               Plag = Lign & ":" & Lign
               Rows(Plag).Delete
           End If
 
    'si pas la bonne plage de selection affiche message
    Else
        MsgBox "Veuillez sélectionner :" & vbLf & "Qu'une seulle ligne" & vbLf & "Les lignes 1 à 5 ne sont pas autorisées", vbInformation, "Information"
    End If
End With
 
'protége la feuille
ActiveSheet.Protect "xxxx", True, True, True
 
End Sub