Discussion :

[pascalrun]

Bonjour,

Je ne sais pas si je serai clair dans ma demande (car je débute et pour l'instant je récupère des bouts de code vba à droite et à gauche pour les assembler), mais j'essaye de créer une macro qui permet, à partir d'une question, de définir des variables "colonne1" et "colonne2" qui me permettent ensuite d'effacer des colonnes.

Si par exemple, dans mes réponses, la variable "colonne1" = B et "colonne2" = F
je souhaiterais sélectionner les colonnes de B à F pour ensuite utiliser Range() pour les effacer.

j'ai essayé : Range("colonne1:colonne2").Select
mais il semble qu'on ne peut pas mettre de variables dans Range() ... ou je m'y prends mal.

je vous remercie pour votre aide


Sub test()

Dim dialogue1 As String

dialogue1 = MsgBox("est-ce qu'il y a des colonnes à supprimer ?", vbYesNo, "Question") 'question pour continuer ou pas

If (dialogue1 = 6) Then 'si la réponse est oui

Dim colonne1 As String

colonne1 = InputBox("à partir de quelle colonne, faut-il effacer")

Dim colonne2 As String

colonne2 = InputBox("jusqu'à quelle colonne, faut-il effacer")

End If

Range("colonne1:colonne2").Select 'il y a surement un problème à ce niveau
Selection.Delete Shift:=xlToLeft

End Sub

[hyperion13]

Salut
Il y a peut être plus simple
Dans un module standard

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
Sub SelectColonne()
Dim rng As Range
 
On Error Resume Next
Set rng = Application.InputBox( _
    Title:="Sélectionner des colonnes", _
    Prompt:="Selectionnez vos colonnes svp !", _
    Type:=8)
On Error GoTo 0
 
If rng Is Nothing Then Exit Sub
MsgBox rng.Address
'rng.ClearContents ' effacer le contenu des colonnes sélectionnées
rng.Delete ' supprimer les colonnes sélectionnées
End Sub

sinon

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
Sub SelectColonne()
Dim dialogue1 As String
Dim colonne1 As String
Dim colonne2 As String
Dim rng As Range
 
dialogue1 = MsgBox("est-ce qu'il y a des colonnes à supprimer ?", vbYesNo, "Question") 'question pour continuer ou pas
 
If dialogue1 = 6 Then 'si la réponse est oui
    colonne1 = InputBox("à partir de quelle colonne, faut-il effacer")
    colonne2 = InputBox("jusqu'à quelle colonne, faut-il effacer")
    Set rng = Range(colonne1 & ":" & colonne2)
    'rng.ClearContents ' effacer le contenu des colonnes sélectionnées
    rng.Delete ' supprimer les colonnes sélectionnées
End If
End Sub

[pascalrun]

merci @hyperion13

le premier code fonctionne surement mais je ne sais pas comment répondre à la InputBox → est-ce qu'il faut mettre les lettres correspondant aux colonnes avec des espaces, des points virgules ...


le deuxième code, même si je ne comprends pas tout en tant que débutant, fonctionne parfaitement. merci


merci @BENNASR

j'ai essayé ton code mais j'ai une erreur d'exécution 13' au niveau de la ligne For i = colonne1 To colonne2

ce n'est pas très grave vu que j'ai un de vos 3 codes qui fonctionnent. Mais si tu souhaites corriger ou me dire ce que je ne dois pas bien faire, n'hésites pas, je suis preneur pour apprendre.



Merci à vous deux

[pascalrun]

comme vous êtes très fort :-), je me permets une dernière petite question :

j'ai trouvé un bout de code qui permet d'enregistrer un feuille Excel en pdf et de l'envoyer ce document par email en utilisant outlook.

tout fonctionne mais il me manque un élément :
j'ai plusieurs boites aux lettres et je souhaiterai sélectionner l'une d'elle en particulier. Je ne sais pas comment faire : j'ai essayé .from mais ca ne fonctionne pas

.from = "xxx@xxx.fr"
.To = "xxx@xxx.fr"
.CC = "xxx@xxx.fr"
.HTMLBody = "Bonjour, ......" & .HTMLBody

vous savez comment faire ?

merci d'avance

[hyperion13]

re
1er code, lorsque l'inputbox est ouvert il suffit de sélectionner les en-têtes de colonnes puis clic OK
2ème RAS
3ème code il faut saisir les numéros de colonnes (1 pour A, 2 pour B, etc.)

pour le reste lire ceci

[pascalrun]

merci à tous les deux

[BENNASR]

bonjour
testez :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test()
If MsgBox("est-ce qu'il y a des colonnes à supprimer ?", vbExclamation + vbYesNo) = vbYes Then
Dim colonne1 As String
colonne1 = InputBox("à partir de quelle colonne, faut-il effacer")
Dim colonne2 As String
colonne2 = InputBox("jusqu'à quelle colonne, faut-il effacer")
For i = colonne1 To colonne2
 Columns(i).ClearContents
Next i
End If
End Sub