blocage macro

Modeste

XLDnaute Barbatruc

• 14 Octobre 2016

• #2

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"

 

Vote positif 0 Vote négatif

Yurperqod

XLDnaute Occasionnel

• 14 Octobre 2016

• #3

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.

 

Vote positif 0 Vote négatif

O

olivier972

Guest

• 14 Octobre 2016

• #4

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

 

Pièces jointes

• bugmacro.txt

  709 bytes · Affichages: 45
• Doc1.pdf

  184.3 KB · Affichages: 44

Vote positif 0 Vote négatif

Yurperqod

XLDnaute Occasionnel

• 14 Octobre 2016

• #5

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

VB:

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

 

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 17 Octobre 2016

• #6

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:

VB:

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!? 😕

 

Dernière édition: 17 Octobre 2016

Vote positif 0 Vote négatif

O

olivier972

Guest

• 17 Octobre 2016

• #7

super merci beaucoup cela fonctionne

 

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 17 Octobre 2016

• #8

Re,

on peut sans doute faire encore un poil plus court:

VB:

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

 

Vote positif 0 Vote négatif