copier plage cellule a partir d'une variable

[Florian53]

Bonjour, je voudrais réaliser une copie à l'aide d'une variable.

Je dispose d'une variable " AA " = (A1:A100) qui se situe sur la feuil1, je voudrais copier cette plage là dans la Feuil2 à partir de la cellule A3.

Est ce possible que cette plage soit copié en inserant un fond de couleur de la cellule ( par exemple bleu) , que la police soit arial de taille "8" et d'avoir les 4 bordures dans toutes les cellules ?

Est ce que quelqu'un pourrait me donner un bout de code pour réaliser ça.

Cdlt

 

[DoubleZero]

Re : copier plage cellule a partir d'une variable

Bonjour, Florian53, le Forum,

Comme ceci ?

Option Explicit
Sub aa()
    Dim c As Range, plage As Range
    Set plage = Sheets("Feuil1").[a1:a100]
    With Sheets("Feuil2").[a3:a102]
        .Clear
        .Value = plage.Value
        .Borders.Value = 1
        .Interior.Color = 15652797
        .Font.Size = 8
        .Font.Name = "arial"
    End With
End Sub

A bientôt 🙂

 

[Florian53]

Re : copier plage cellule a partir d'une variable

Merci ça fonctionne, par contre j'ai oublié de demander il faudrait que cela copie mais sans doubon :

Est ce que je peux m'en sortir avec ça : AdvancedFilter Action:=xlFilterCopy

Comment est ce que je peux l'adapter ?

 

[DoubleZero]

Re : copier plage cellule a partir d'une variable

Re-bonjour,

...j'ai oublié de demander il faudrait que cela copie mais sans doubon...

Comme cela ?

Option Explicit
Sub aa_sans_doublon()
    Dim c As Range, plage As Range
    Set plage = Sheets("Feuil1").[a1:a100]
    With Sheets("Feuil2").[a3:a102]
        .Clear
        .Value = plage.Value
        .Range(.Range("a3"), .Range("a3").End(xlDown)).RemoveDuplicates Columns:=1, Header:=xlNo
        .Borders.Value = 1
        .Interior.Color = 15652797
        .Font.Size = 8
        .Font.Name = "arial"
        .SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
    End With
End Sub

A bientôt 🙂

 

[Florian53]

Re : copier plage cellule a partir d'une variable

Merci ,

J'ai fait un essai avecle code mais j'ai encore les doublons je n'ai pas l'impression que cela fonctionne et je voudrais que les cellules se collent à partir de la cellule A3 sans m'occuper de la fin est ce possible?


Cdlt

 

[DoubleZero]

Re : copier plage cellule a partir d'une variable

Bonjour, Florian53, le Forum,

... j'ai encore les doublons je n'ai pas l'impression que cela fonctionne et je voudrais que les cellules se collent à partir de la cellule A3 sans m'occuper de la fin est ce possible?..

"encore les doublon" 😕

Merci de bien vouloir déposer, enfin, un exemple du fichier de travail sans donnée confidentielle avec quelques valeurs en "Feuil1", et, dans un onglet particulier, le résultat souhaité en "Feuil2".

A bientôt 🙂

 

[Florian53]

Re : copier plage cellule a partir d'une variable

Bonsoir, Désolé de la réponse tardive j'ai réessayer le code et j'ai pas de doubon merci à toi