XL 2021 Dupliquer des cellules

job75

XLDnaute Barbatruc

• 15 Avril 2024

• #16

Bonjour JohnBill, le forum,

JohnBill à dit:

Que faut il modifier à la macro dupliquer du post 9 pour faire la même opération avec une seule date.

Cliquez pour agrandir...

Il n'y à rien à modifier.

J'ai mis une InputBox pour qu'on puisse y entrer n'importe quel nombre.

Donc entrez 1.

A+

 

Vote positif 0 Vote négatif

JohnBill

XLDnaute Occasionnel

• 15 Avril 2024

• #17

Je m'excuse mais j'avais très bien compris cette possibilité mais lorsque je traite un grand nombre de données il faut que je tape 1 pour chacune des plages vides alors que pour les macros dupliquer et dupliquer1 cela se fait automa

 

Vote positif 0 Vote négatif

JohnBill

XLDnaute Occasionnel

• 15 Avril 2024

• #18

Oups !! Y a eu un Bug qui m'a empêché de terminer ma phrase. Je disais que cela se faisait automatiquement sur toutes les plages de cellules vides dans les macros dupliquer et dupliquer1 sans les sélectionner, ce qui lui confère une grande rapidité d'exécution. Encore merci.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Avril 2024

• #19

Si vous voulez que le choix se fasse pour toutes les plages mettez la box en début de macro :

VB:

Sub Dupliquer3()
Dim n&, a As Range
n = Int(Val(InputBox("Nombre de cellules copiées :")))
Application.ScreenUpdating = False
On Error Resume Next 'si aucune SpecialCell
With Columns(1)
    .Replace "", "#N/A"
    For Each a In .SpecialCells(xlCellTypeConstants, 16).Areas
        If n > 0 And n < a.Row Then
            a = "=R[-" & n & "]C"
            a = a.Value 'supprime les formules
        End If
    .Replace "#N/A", ""
    Next a
End With
End Sub

 

Dernière édition: 15 Avril 2024

Vote positif 0 Vote négatif

JohnBill

XLDnaute Occasionnel

• 15 Avril 2024

• #20

Alors là, c'est plus que parfait. Grace à vous je vais gagner un temps précieux. Heureusement que beaucoup de membres du forum sont plus que compétents et nous apportent de nombreuses solutions qui nous font aussi progresser. Merci beaucoup à tous et surtout job75 qui m'a solutionné mon cas.

 

Vote positif 0 Vote négatif