Feuil1.Cells.Clear: Feuil2.Cells.Clear
Sub Macro2()
Range("Noms").Copy
Sheets("Feuil2").Range("Nom").PasteSpecial Paste:=xlPasteValues
End Sub
Sub Macro3()
Range("Noms").Copy
Sheets("Feuil2").Range("Nom").PasteSpecial -4163
End Sub
Sub z()
[Noms].Copy: [Nom].PasteSpecial -4163
End Sub
https://support.office.com/fr-fr/article/Automatiser-des-t%C3%A2ches-avec-l-enregistreur-de-macro-974ef220-f716-4e01-b015-3ea70e64937b
La logique voudrait qu'on copie une plage nommée dans une plage nommée de même tailleNB: Elles fonctionnent certes, mais avec un côté aberrant tout de même si on y regarde de plus prés.
Sub La_Preuve_Et_Xplications()
Dim Message$
'création des éléments pour test
Feuil1.Cells.Clear: Feuil2.Cells.Clear
Feuil1.[A1:C5].Name = "Noms": Feuil2.[C8:C9].Name = "Nom"
'Informations sur les plages nommées
Message = "Noms=" & [Noms].Address(0, 0) & vbCrLf & "Nom=" & [Nom].Address(0, 0) & vbCrLf
Message = Message & "NB Cellules dans Noms: " & [Noms].Count & vbCrLf & "NB Cellules dans Nom: " & [Nom].Count & vbCrLf
Message = Message & vbCrLf & "On copie donc 15 cellules dans 2 cellules??? C'est pas logique"
MsgBox Message, vbCritical, "Y a comme un blème, non ?"
[Noms] = "=RAND()": [Noms].Font.Bold = True: [Noms].Interior.Color = RGB(123, 241, 158)
'recopie
[Noms].Copy: [Nom].PasteSpecial -4163
MsgBox "En fait on copié le nombres de cellules de Noms," & vbCrLf & "dans les cellules contigues de la 1ere cellule de Nom", vbInformation
MsgBox "Nom=" & [Nom].CurrentRegion.Address(0, 0) & vbCrLf & "(Pour mémoire au départ Nom=C8:C9)", vbExclamation
End Sub
Re,
La logique voudrait qu'on copie une plage nommée dans une plage nommée de même taille
J'ai jeté mon oeil gauche surBon_jour
Ta logique... (voir MP)
Jette un œil sur le fichier que je t'ai concocté et dis-moi ce que tu penses de Ta première proposition.
Private Sub GoGo_Click()
Application.Calculation = -4135
Application.DisplayAlerts = 0
[Noms].Copy: [Nom].PasteSpecial -4163
Application.DisplayAlerts = 1
[A1].Select
End Sub