XL 2019 Comment faire a vba ?

  • Initiateur de la discussion Initiateur de la discussion frederio
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

frederio

XLDnaute Impliqué
Bonjour à tous
Tu vous connais comment faire ?
Si tu veux être d’accord avec moi ??? vous m’aidez a expliqué comme Excel Merci

Comment faire a vba ?

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

Pièces jointes

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
 
comment enlever ( 0 )
2023-05-13_16-34-44.jpg
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
78
Réponses
12
Affichages
486
Réponses
25
Affichages
2 K
Réponses
1
Affichages
221
Réponses
4
Affichages
386
Réponses
1
Affichages
362
Réponses
1
Affichages
221
  • Question Question
XL 2019 SIERREUR
Réponses
3
Affichages
622
Réponses
5
Affichages
471
  • Question Question
XL 2019 date
Réponses
4
Affichages
504
Réponses
8
Affichages
624
Réponses
2
Affichages
431
Réponses
3
Affichages
603
Réponses
3
Affichages
534
Retour