Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel macro

macro

1 réponse
Avatar
mikee
j'ai cr=E9=E9 une macro:
Sub Macro3()
'
' Macro3 Macro
' Macro enregistr=E9e le 21/11/2003 par CSI
'

'
Range("H2").Select
ActiveCell.FormulaR1C1 =3D "=3D0&RC[-6]"
Range("H2").Select
Selection.Copy
Range("B2").Select
Selection.PasteSpecial Paste:=3DxlPasteValues,=20
Operation:=3DxlNone, SkipBlanks _
:=3DFalse, Transpose:=3DFalse
Range("H2").Select
Application.CutCopyMode =3D False
Selection.ClearContents
End Sub

pour qu'elle puisse me rajouter un 0 a une celulle et la=20
copier et suprimer. mais ca ne marche que sur une ligne=20
b2. comment faire pour qu'eele puisse le faire jusqu'a la=20
ligne b500.
merci
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Denis Michon
Bonjour Mikee,

En adaptant le nom de la feuille, est-ce que cela te va ?

'------------------------------
Sub macro2()

With Worksheets("Feuil1")
With .Range("H2")
.FormulaR1C1 = "=0&RC[-6]"
.Copy
End With
With .Range("B2:B" & .Range("b65536").End(xlUp).Row)
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:úlse, Transpose:úlse
End With
Application.CutCopyMode = False
[H2].ClearContents
End With

End Sub
'------------------------------


Salutations!


"mikee" a écrit dans le message de news:0b1d01c3b040$578a41e0$
j'ai créé une macro:
Sub Macro3()
'
' Macro3 Macro
' Macro enregistrée le 21/11/2003 par CSI
'

'
Range("H2").Select
ActiveCell.FormulaR1C1 = "=0&RC[-6]"
Range("H2").Select
Selection.Copy
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:úlse, Transpose:úlse
Range("H2").Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub

pour qu'elle puisse me rajouter un 0 a une celulle et la
copier et suprimer. mais ca ne marche que sur une ligne
b2. comment faire pour qu'eele puisse le faire jusqu'a la
ligne b500.
merci