blocage macro

[olivier972]

Bonjour,

Voici une petite macro simple mais qui beug pourriez m'aider svp ?

Merci par avance.

 

[Modeste]

Bonjour olivier972,

Je suis un peu confus, mais c'est toi qui m'aura tendu la perche!
Les commentaires ci-dessous t'aident-ils?

... ne cherche pas trop: j'ai mis n'importe quoi! Comment voudrais-tu qu'on dise quoi que ce soit d'un peu inspiré, sur base d'une image et sans savoir ce que tu aimerais que la macro fasse, ni ce qui "beuguerait"

 

[Yurperqod]

Bonjour le forum

Je fais la même remarque que l'intervenant précédent
Avec un copier/coller du texte de la macro dans le message, on peut à notre tour faire un copier coller dans notre Excel.

Avec une copie d'écran, on doit recopier le texte de la macro et c'est long.

 

[olivier972]

Désolé effectivement ce n'est pas très précis.
je vous joint un fichier text avec la macro
il s'agit de la 2 eme ligne qui beug.
je vous ai joint deux fichiers en espérant que cela puisse vous éclairez.

Merci de votre aide

 

[Yurperqod]

Avec un classeur en plus du code texte, ce serait un plus pour tester
A tester ta macro modifiée

Sub HAWBIRAN()
'
' HAWBIRAN Macro
'
  Range("A4:D4").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
  Range("A5:D5").AutoFill Destination:=Range("A4:D5"), Type:=xlFillDefault
  Range("A2").FormulaR1C1 = "=R[2]C[3]"
  Range("A2").Copy
  Sheets("SAISIE ENTREE").Range("D21").PasteSpecial Paste:=xlPasteValues
  Sheets("SAISIE ENTREE").Range("D21").PasteSpecial Paste:=xlPasteFormats
End Sub

 

[Modeste]

Bonjour olivier972,

Si ta macro est appelée par un bouton figurant dans une autre feuille et que le code est dans un module standard, il faut préciser dans quelle feuille tu veux travailler.
Essaie ce qui suit:

Sub HAWBIRAN()
With Feuil2
    .Range("A4:D4").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    .Range("A5:D5").AutoFill Destination:=.Range("A4:D5"), Type:=xlFillDefault
    .Range("A2").FormulaR1C1 = "=R[2]C[3]"
    .Range("A2").Copy
    Sheets("SAISIE ENTREE").Range("D21").PasteSpecial Paste:=xlPasteValues
    Sheets("SAISIE ENTREE").Range("D21").PasteSpecial Paste:=xlPasteFormats
End With
End Sub

Mais pourquoi donc avoir supprimé le message posté après la proposition de Yurperqod et donc avant celui-ci!? 😕

 

[olivier972]

super merci beaucoup cela fonctionne

 

[Modeste]

Re,

on peut sans doute faire encore un poil plus court:

Sub HAWBIRAN()
'
' HAWBIRAN Macro
'
With Feuil2
    .Range("A4:D4").Copy
    .Range("A4:D4").Insert Shift:=xlDown
    Sheets("SAISIE ENTREE").Range("D21").Value = .Range("D4").Value
End With
Application.CutCopyMode = False
End Sub