XL 2019 Comment faire a vba ?

dysorthographie

XLDnaute Accro

• 13 Mai 2023

• #2

Bonjour,

Code:

range("B5:B22").value=range("D5:D22").Value

 

Dernière édition: 13 Mai 2023

Vote positif 0 Vote négatif

frederio

XLDnaute Impliqué

• 13 Mai 2023

• #3

Tu es trompe il n’a pas marche

J’ai n’a pas trouve

 

Vote positif 0 Vote négatif

frederio

XLDnaute Impliqué

• 13 Mai 2023

• #4

Sur la 1ère feuille "JUPILER PRO LEAGUE" effacer

je voir rien

 

Vote positif 0 Vote négatif

laurent950

XLDnaute Barbatruc

• 13 Mai 2023

• #5

Bonjour,

VB:

Sub CopieColler()
Dim Rgn() As Variant
ReDim Rgn(0 To 2)
    Set Rgn(0) = Range(Cells(5, 2), Cells(22, 2)) 'B5:B22
        Rgn(1) = Range(Cells(5, 4), Cells(22, 4)) 'D5:D22
    Set Rgn(2) = Range(Cells(5, 4), Cells(22, 4)) 'D5:D22
        Rgn(0).ClearContents
        Rgn(2).ClearContents
        Rgn(0).Value = Rgn(1)
End Sub

 

Vote positif 0 Vote négatif

frederio

XLDnaute Impliqué

• 13 Mai 2023

• #6

comment enlever ( 0 )

 

Vote positif 0 Vote négatif

laurent950

XLDnaute Barbatruc

• 13 Mai 2023

• #7

Bonjour,

HTML:

Sub CopieColler()
Dim Rgn() As Variant
ReDim Rgn(0 To 3)
    Set Rgn(0) = Range(Cells(5, 2), Cells(22, 2)) 'B5:B22
        Rgn(1) = Range(Cells(5, 4), Cells(22, 4)) 'D5:D22
    Set Rgn(2) = Range(Cells(5, 4), Cells(22, 4)) 'D5:D22
    Set Rgn(3) = Range(Cells(5, 12), Cells(22, 12)) 'L5:L22
        Rgn(0).ClearContents
        Rgn(2).ClearContents: Rgn(3).NumberFormat = ";;;"
        Rgn(0).Value = Rgn(1)
End Sub

 

Vote positif 0 Vote négatif

frederio

XLDnaute Impliqué

• 13 Mai 2023

• #8

merci beaucoup laurent

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Mai 2023

• #9

Bonjour le fil

@frederio
Si il s'agit de recopier au final les valeurs de D5:D22 en B5:B22, alors ce que propose @dysorthographie fonctionne très bien

Tout comme le code ci-dessous

Code:

Sub Effacer_ET_Coller()
Range("D5:D22").Cut Range("B5")
End Sub

 

Vote positif 0 Vote négatif

frederio

XLDnaute Impliqué

• 15 Mai 2023

• #10

reste des écrire

 

Vote positif 0 Vote négatif

frederio

XLDnaute Impliqué

• 15 Mai 2023

• #11

désole j ai oublie

• pas effacer B5: B22

 

Vote positif 0 Vote négatif

AtTheOne

XLDnaute Accro

Supporter XLD

• 15 Mai 2023

• #12

Bonsoir à toutes & à tous, bonsoir @frederio

frederio à dit:

• Faire effacer B5: B22
• Faire copie D5: D22
• Faire coller B5: B22

Cliquez pour agrandir...

Ou

frederio à dit:

pas effacer B5: B22

Cliquez pour agrandir...

????
A bientôt

 

Vote positif 0 Vote négatif

frederio

XLDnaute Impliqué

• 15 Mai 2023

• #13

• Faire copie D5: D22
• Faire coller B5: B22

 

Vote positif 0 Vote négatif

AtTheOne

XLDnaute Accro

Supporter XLD

• 15 Mai 2023

• #14

Re,
Les valeurs ou les formules.
De toute façon on écrase ce qu'il y a en B5:B22, donc on efface le contenu ! Pourtant tu dis

frederio à dit:

désole j ai oublie

• pas effacer B5: B22

Cliquez pour agrandir...

Alors ???

 

Vote positif 0 Vote négatif

frederio

XLDnaute Impliqué

• 15 Mai 2023

• #15

je vais l'expliquer montre vidéo

 

Vote positif 0 Vote négatif