Erreur dans ma formuleRésolu

Question

Bonjour à tous

Voici mon problème j'ai écrit ceci :

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").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

le résultat est que je n'arrive pas à copier une cellule dans une page et la coller avec incrémentation dans une autre page à la fin d'une liste dans la colonne A

quand je l'exécute il m'affiche VRAI  au bon endroit certe mais pas la cellule copi"e

Soyez indulgent  je commence juste en VBA

Merci d'avance à celui ou celle qui me trouvera la grossière erreur.

A+

JM

cnt · Accepted Answer

Salut 
En reprenant le code de ton premier POST, les modifs que j'y ai introduites sont en rouge et ça marche 

Sub Ajout_Categorie()
'
' Ajout_Categorie Macro
' Ajouter une Catégorie manquante
'
    Sheets("FICHE").Select
    Range("E3").Select
    Selection.Copy
    Sheets("CATEGORIES").Select
    If Range("A1") = "" Then
         Range("A1").PasteSpecial
    Else
         Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
    End If
    Sheets("FICHE").Select
    Range("E3").Select
    Selection.ClearContents
    
End Sub

CNTJC

cnt · Answer

salut
c'est plutot ce qui est en rouge qu'il faut faire pour copier  
  
    Range("E3").Select
    Selection.Copy
    Sheets("CATEGORIES").Select
    If Range("A1") = "" Then
    Range("A1").PasteSpecial

CNTJC

jeanmo7 · Answer

Bonjour,

je viens d'essayer mais cela ne fonctionne pas, il trouve bien la première cellule vide mais écrit "VRAI"  au lieu de copier la cellule à copier.

je pense que si il marque vrai c'est peut être qu'il teste une partie de ma fonction ?

Merci de ton aide

JM

pile_poil · Answer

bonjour 
en supprimant les erreurs et tout ce qui ne sert a rien dans ta macro  on arrive à ceci 
     
  Sheets("CATEGORIES").range("E" & Range("E65536").End(xlUp).Row+1) =  Sheets("FICHE").range("E3").value
    

[reglement.aspx ]si c'est la solution, penser : REPONSE ACCEPTEE

jeanmo7 · Answer

Je viens d'essayer cela recopie bien la cellule E3 dans la première page et la recopie dans l'onglet CATEGORIE  mais pas dans la colonne A et pas à la bonne ligne

je flotte !!

Merci d'avance

JM

pile_poil · Answer

il suffit de Remplacer E par A 
quand à la mauvaise ligne ..... il écrit la valeur de la cellule a la suite de la derniere ligne utilisée
c'est ce qu'essayait de faire ton code ! 

[reglement.aspx ]si c'est la solution, penser : REPONSE ACCEPTEE

jeanmo7 · Answer

Cela ne fonctionne pas  je cherche

JM

jeanmo7 · Answer

Merci de ton aide

A+

JM

Erreur dans ma formule

8 réponses

Votre réponse

Discussions similaires