chris6999
XLDnaute Impliqué
Bonsoir le forum
Je dispose d'une macro que j'aimerais adapater pour automatiser la mise en forme d'un fichier.
Cette macro exécute les opération suivantes:
Lorsque dans la plage A1 à C500 il existe la valeur C33, supprime la cellule.
Ce que je voudrais faire:
A la place du supprimer, je souhaiterais copier le contenu de cette cellule sur la ligne précédente, dans une colonne définie (par ex la colonne 8 donc hors de la plage).
Voici la macro qui me servirait de base
Dim Cellule As Range
With Sheets("Feuil1")
For Each cel In Range("A1:C500")
If cel.Value Like "*C33*" Then
cel.Select
Selection.Delete
End If
Next cel
End With
End Sub
Je ne vois pas comment faire.Quelqu'un aurait il une idée?
Merci d'avance
Cordialement
Je dispose d'une macro que j'aimerais adapater pour automatiser la mise en forme d'un fichier.
Cette macro exécute les opération suivantes:
Lorsque dans la plage A1 à C500 il existe la valeur C33, supprime la cellule.
Ce que je voudrais faire:
A la place du supprimer, je souhaiterais copier le contenu de cette cellule sur la ligne précédente, dans une colonne définie (par ex la colonne 8 donc hors de la plage).
Voici la macro qui me servirait de base
Dim Cellule As Range
With Sheets("Feuil1")
For Each cel In Range("A1:C500")
If cel.Value Like "*C33*" Then
cel.Select
Selection.Delete
End If
Next cel
End With
End Sub
Je ne vois pas comment faire.Quelqu'un aurait il une idée?
Merci d'avance
Cordialement
Pièces jointes
Dernière édition: