Discussion :

[lesebh]

Bonjour,

Je n'arrive pas à écrire un code pourtant assez simple où je demande dans un message box un chiffre (ça OK) qui me permettrais de sélectionner la plage entre les colonnes A et F et de la dernière ligne et remonter de - ma variable.
Comment rendre négative ma variable et faire la sélection du range.

Merci de votre aide

[QuestVba]

Bonjour,

Tu auras plus de chances d'obtenir ta réponse sur le forum VBA.
Pourrais-tu déjà nous donner le code que tu as ? Ou son début ?

[lesebh]

Tu as raison merci
je ne retrouve plus comment on insère correctement du code

[QuestVba]

Alt-F11 ?

[lesebh]

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
Dim jours As Long
 
 
Nom = InputBox("Combien de jours concernés : ", "Jours")
 
 
 
 
Dim Maplage As Range
Dim DernLigne As Long
'dernière ligne colonne A
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
i = -jours
'dernière colonne ligne 1
'DernColonne = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
Range(DernLigne, "f" & i).Select
 
Selection.Copy
 
  Sheets("Envoi").Select
Range("A12").Select
 
Selection.Paste

[riaolle]

Bonjour,

Que vaut jours ? Tu ne l'écris jamais. Tu créés une InputBox (Nom), mais tu n'utilises jamais Nom ensuite. Attention, l'Inputbox renvoie une chaine de caractère --> à convertir si on veut un nombre.

Quelle est la plage de cellule que tu veux sélectionner. Pour une plage de cellule, voici plusieurs syntaxes possibles :

Code :

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

1
2
Range("A1:B10")
Range(Cells(1, 1), Cells(10, 2))

Avec des variables (par ex. si i = 10) :

Code :

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

1
2
Range("A1:B" & i)
Range(Cells(1, 1), Cells(i, 2))

Mais ceci :

Code :

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

Range(DernLigne, "f" & i

ne va pas. DernLigne est un entier correspondant à une ligne, ce n'est pas un cellule. i est-il négatif ? Il n'existe pas de cellule avec une ligne négative !

Ensuite, évite au maximum d'utiliser Select, Selection, Activate, ActiveSheet etc ... Ceci est donné par l'enregistreur de macro, mais ensuite, il faut travailler le code.
N'écris pas :

Code :

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

1
2
3
Sheets("ma feuille").Activate
ActiveSheet.Range("A1").Select
Selection.Copy

Mais :

Code :

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

Sheets("ma feuille").Range("A1").Copy

Deplus, avec la méthode Copy, tu as la syntaxe suivante :

Code :

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

Sheets("feuille source").Range("A1").Copy destination:=Sheets("feuille de destination").Range("A1")

Cela allègera ton code.