Autofill et Range variable

Question

Bonjour à tous, 



Configuration: Je bloque depuis quelque temps sur un bout de code me permettant de finir un tableau. Je suis nouveau en VBA donc il est problable que mon code soit obsolète mais bon...

Le principe est de créer la  colonne des ordonnées après que l'utilisateur ai choisi, le nombre de colonne, le chiffre initial et le pas. Cette colonne commence en B5.
Ensuite, grace à un autofill, je veux sélectionner la plage ("B5:B6") et agrandir la colonne jusqu'à atteindre la ligne indiquée par l'utilisateur. 

Exemple: L'utilisateur veut une colonne commençant par 2 avec un pas de 1 et avec 5 élements. Il faut obtenir en B5:2 B6:3 B7:4 ... B9:7

Voici le bout de code en question : 



LIGNE = InputBox("Combien de lignes souhaitez vous?", , 10)
VALEUR_INI_LIGNE = InputBox("Quelle est la 1ère valeur de ces lignes?", , 0)
PAS_L = InputBox("Quel est le pas?", , 1)

    Cells(5, 2) = VALEUR_INI_LIGNE
    Cells(6, 2) = VALEUR_INI_LIGNE + PAS_L
    Range("B5:B6").Select
    Selection.AutoFill Destination:=Range(Cells(2, 5), [Cells(2, LIGNE)]), Type:=xlFillDefault

ça coince au niveau de l'AutoFill et je n'arrive pas à m'en sortir.



Merci d'avance :)

Ziggy69 · Answer

Pour les range je préfére faire comme ceci. J'ai aussi ajouté LIGNE + 5 car s'il veut 5 éléments et qu'on part de la ligne 5, il en aura juste 1 :).

LIGNE = InputBox("Combien de lignes souhaitez vous?", , 10)
    VALEUR_INI_LIGNE = InputBox("Quelle est la 1ère valeur de ces lignes?", , 0)
    PAS_L = InputBox("Quel est le pas?", , 1)

    Cells(5, 2) = VALEUR_INI_LIGNE
    Cells(6, 2) = VALEUR_INI_LIGNE + PAS_L
    Range("B5:B6").Select
    Selection.AutoFill Destination:=Range("B5:B" & LIGNE + 5), Type:=xlFillDefault

valor · Answer

Aaah nikel ça marche comme sur des roulettes, j'avais essayé des méthodes trop complexes, alors que la solution était très simple!

J'ai essayé de transposer cette méthode pour la réalisation des colonnes :

OLONNE = InputBox("Combien de colonnes voulez vous?", , 10)
    VALEUR_INI_COLONNE = InputBox("Quelle est la 1ère valeur de ces colonnes?", , 1)
    PAS_C = InputBox("Quel est le pas?", , 1)

 Cells(4, 3) = VALEUR_INI_COLONNE
    Cells(4, 4) = VALEUR_INI_COLONNE + PAS_C
    Range("C4:D4").Select
 Selection.AutoFill Destination:=Range("C4:?????"), Type:=xlFillDefault



mais cette fois-ci, le paramètre variable est une lettre et non un chiffre. Comment se dépatouiller?

Merci encore :)

lermite222 · Answer

Bonjour, 
Une idée !! 
Sub EcritSerie() 
Dim SourcePlage As Range 
Dim DestPlage As Range 
Dim SourceIncr As Range 
Dim Ligne As Long, Col As Integer, NbLigne As Long, NbCol As Integer 
Dim ValeurInitial As Integer, PasLigne As Integer 
   ' NbLigne = InputBox("Combien de lignes souhaitez vous?", , 10) 
   ' NbCol = InputBox("Combien de colonnes souhaitez vous?", , 5) 
   ' ValeurInitial = InputBox("Quelle est la 1ère valeur de ces lignes?", , 0) 
   ' PasLigne = InputBox("Quel est le pas?", , 1) 
'Valeur pour les test.. à supprimer 
NbLigne = 20 
NbCol = 5 
ValeurInitial = 5 
PasLigne = 3 
    With Sheets("Feuil1") 
        Set SourcePlage = .Range(Cells(2, 2), Cells(2, NbCol + 1)) 
        Set SourceIncr = .Range(Cells(3, 2), Cells(3, NbCol + 1)) 
        Set DestPlage = .Range(Cells(2, 2), Cells(NbLigne + 1, NbCol + 1)) 

    SourcePlage = ValeurInitial 
    SourceIncr = ValeurInitial + PasLigne 
    .Range(Cells(2, 2), Cells(3, NbCol + 1)).AutoFill Destination:=DestPlage, Type:=xlFillSeries
    End With 
End Sub
A+ 
L'expérience instruit plus sûrement que le conseil. (André Gide)   
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)

lermite222 · Answer

Ouppps, pas vu les autres postes...
Pour exécuter avec des lettres je pense pas que ce soit possible, faudra faire autrement.

valor · Answer

J'ai essayé ça :     

    Dim I As Integer
    Dim COLONNE As Integer
    Dim VALEUR_INI_COLONNE As Integer
    Dim PAS_C As Integer
    I = 5
    
    Cells(4, 3) = VALEUR_INI_COLONNE                    'Entre la 1ère valeur dans la 2eme colonne
    Cells(4, 4) = VALEUR_INI_COLONNE + PAS_C            'Entre la 2ème valeur (valeur1 + pas) dans la 3ème colonne du tableau
    
    
    Range("C4").Select
    ActiveCell.FormulaR1C1 = VALEUR_INI_COLONNE
    Range("D4").Select
    ActiveCell.FormulaR1C1 = VALEUR_INI_COLONNE + PAS_C
    Range("E4").Select
    ActiveCell.FormulaR1C1 = "=RC[-2]+ PAS_C"

    For I = 5 To COLONNE + 1
    Cells(4, I).AutoFill Destination:=Range(Cells(4, I), Cells(4, I + 1)), Type:=xlFillDefault
    Next I



Si le 1er chiffre est 1 et le pas est 1, j'obtiens   C4=1 D4=2 (jusque là tout va bien) mais pour les autre cellules E4 F4 etc... j'obtiens #NOM?
Je pense que le problème viens de  ActiveCell.FormulaR1C1 = "=RC[-2]+ PAS_C" mais je ne trouve pas :s

Ziggy69 · Answer

J'ai pas tout lu mais effectivement   ActiveCell.FormulaR1C1 = "=RC[-2]+ PAS_C"      ne peut pas marcher car quand tu es entre " ", c'est un string et PAS_C est un integer, il te faut donc faire de la concaténation de chaine avec &. Ici, ça donne :

ActiveCell.FormulaR1C1 = "=RC[-2]+" & PAS_C


Je pense que ça doit marcher.

Autofill et Range variable

6 réponses

Discussions similaires

Newsletters