variables - Range()

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

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

Code:

---

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:

---

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

---

bonjour
testez :

Code:

---

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

---

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

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

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

merci à tous les deux :D