supprimer les données d'unce cellule copié Fermé

Question

Bonjour, 

Je suis entrain de faire une macro ou j'ai besoin de copier une donnée d'une cellule la coller sur une autre cellule et supprimer par la suite la cellule d'origine copié?

Pourriez-vous m'aider, j'ai déjà pu copier coller d'une cellule à une autre maintenant il me reste de supprimer la cellule d'origine ou j'ai pris les donées..? Merci pour votre précieuse aide

yg_be · Answer

bonjour, peux-tu montrer ton code?
quand tu écrit "supprimer" la cellule, veux-tu dire en supprimer le contenu?

Li · Answer

Bonjour yg_be,  voici le code de la macro, merci bcp pour ton aide


x = ActiveCell.Value
    Range(ActiveCell, ActiveCell.Offset(0, 1)).Copy
   
    If x = ActiveCell.Offset(0, 3).Value Then
       
        ActiveCell.Offset(1, 0).Select
        GoTo Start
   
    ElseIf x <> ActiveCell.Offset(0, 3).Value Then
              
         ActiveCell.Offset(1, 3).Select
        
Add_Row:
 
         If x = ActiveCell.Value Then
           
            ActiveCell.Offset(0, -2).Select
            Range(Selection, Selection.End(xlToLeft)).Select
            Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
 
           
            
         ElseIf ActiveCell.Value = "" Then
                     
            GoTo Conversion
           
         Else
           
            ActiveCell.Offset(1, 0).Select
            GoTo Add_Row

Supprimer les données d'unce cellule copié

2 réponses

Discussions similaires