VBA Excel je bloque sur une fonction

[jeanmo7]

Bonjour,

voici ce que j'ai écrit et qui ne donne pas le résultat attendu :

Sub Ajout_Categorie()
'
' Ajout_Categorie Macro
' Ajouter une Catégorie manquante
'

Range("E3").Select
Selection.Copy
Sheets("CATEGORIES").Select
If Range("A1") = "" Then
Range("A1").PasteSpecial
'Range("A1").Cells = Selection.Copy

Else
Range("A65536").End(xlUp).Offset(1, 0) = Range("E3").Select
End If
Sheets("FICHE").Select
Range("E3").Select
Selection.ClearContents

End Sub



En fait, la fonction s'exécute mais affiche dans la première cellule vide "VRAI" au lieu de recopier la cellule selectionnèe.

Elle fait un test ???

Merci d'avance
Soyez cool je suis un débutant

 

[Hulk]

Re : VBA Excel je bloque sur une fonction

Hello,

Change cette ligne

Range("A65536").End(xlUp).Offset(1, 0) = Range("E3").[COLOR="Red"][B]Select[/B][/COLOR]

Par

Range("A65536").End(xlUp).Offset(1, 0) = Range("E3").[COLOR="DarkGreen"][B]Value[/B][/COLOR]

Cdt, Hulk.

 

[Raja]

Re : VBA Excel je bloque sur une fonction

Bonjour,

Essaye ce code et dis-nous si c'est bien le résultat que tu attends. Sinon reviens nous questionner avec plus de précisions.

Sub Ajout_Categorie()
  Sheets("FICHE").Range("E3").Copy
  If Sheets("CATEGORIES").Range("A1") = "" Then
    Sheets("CATEGORIES").Range("A1").PasteSpecial
  Else
    Sheets("FICHE").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
  End If
  Sheets("FICHE").Range("E3").ClearContents
End Sub

édit : Salut Hulk

 

[jeanmo7]

Re : VBA Excel je bloque sur une fonction

Merci de ton aide, cela fonctionne parfaitement, j'ai juste changé la destination :

Sheets("FICHE").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial

Sheets("CATEGORIES").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial

Car cela n'arrivait pas dans la bonne feuille sinon c'est nickel !!!


Encore Merci car cela faisait du temps que je cherchais.



et merci à Hulk de sa réponse
JM