Suppression cellule par erreur dans macro

[Boubas1]

J'ai fait 1 macro assez longue mais après coup, je me suis aperçu que dans mon fichier final j'ai oublié de prendre 1 information, cad que j'ai supprimé 1 cellule à 1 moment donné dans ma macro. En effet, j'ai fait plein de filtre automatiques, et de supressions de lignes. Donc je voulais savoir s'il était possible au début de ma macro de copier ma cellule (avant qu'elle soit supprimée)et de la coller ailleurs que de ma feuille de calcul car elle risque d'être supprimée au cours de l'exécution de ma macro. Et à la fin de ma macro, j'aimerais faire 1 coller de cette information dans mon fichier final. En fait, j'aimerais donc éviter de rechercher dans ma macro, à quel moment j'ai donc pu supprimer ma cellule en question. Où est ce que je peut coller mon information (à part dans ma feuille excel) en attendant que la totalité de la macro s'exécute ? Merci.

 

[juju_69]

Re : Suppression cellule par erreur dans macro

Bonjour,

Tu peux faire ceci

Dim v as string

v = sheets("Feuil1").range("B2").value 'ta fameuse cellule

Ton code ...

à la fin de ta macro :
sheets("Feuil1").range("B2").value = v

 

[Boubas1]

Re : Suppression cellule par erreur dans macro

En fait, mon information en question ne sera pas forcément tout le temps dans la même cellule, donc je compte utiliser la fonction rechercher du menu édition pour rechercher mon info et ensuite la copier. Alors qu'est ce que cela changera dans ton code en quetion ?

 

[juju_69]

Re : Suppression cellule par erreur dans macro

Alors çà devrait faire çà :

Dim a, v as string
a = activecell.address
v = range(a).value 'ta fameuse cellule

Ton code ...

à la fin de ta macro :
range(a).value = v

 

[Boubas1]

Re : Suppression cellule par erreur dans macro

On est bien d'accord ton code n'intègre pas la recherche du menu édition pour rechercher mon info, je dois rajouter le code de la recherche juste avant ton code ? Merci.

 

[Boubas1]

Re : Suppression cellule par erreur dans macro

Et dernière petite question, dans ton code, à quel endroit tu choisis l'emplacement où tu va coller l'information copiée de départ, dans quelle colonne, ligne, cellule tu la colles ?

 

[juju_69]

Re : Suppression cellule par erreur dans macro

Tu as raison je vais détailler ;-)

Dim a, v as string 'déclaration des variables

Ta recherche 'tu places ici ta recherche qui va te positionner sur ta cellule

a = activecell.address 'a = l'adresse de la cellule active qui a été trouvée par exemple B2
v = range(a).value 'ta fameuse cellule ' enregistre la valeur dans v

Ton code ...

à la fin de ta macro :
range(a).value = v 'colle dans B2 dans l'exemple la valeur v

 

[Boubas1]

Re : Suppression cellule par erreur dans macro

Bonjour,

Peux tu s'il te plais appliquer ton code à mon petit exemple joint. En fait je voudrais avoir l'info "Arrêté au 30/08/1995" en cellule O1 sur mon fichier à la fin de l'exécution de ma macro. Merci.

 

[juju_69]

Re : Suppression cellule par erreur dans macro

Tu peux faire cela :

Dim a, v As String 'déclaration des variables

Range("A1").Select

Cells.Find(What:="arrêté au", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

v = ActiveCell.Value

'Ton code ...

Range("O1").Value = v

 

[Boubas1]

Re : Suppression cellule par erreur dans macro

J'ai essayé d'intégrer ton code dans la macro essai1 mais ça ne fonctionne pas. Je vois pas d'où ça peut venir.

 

[juju_69]

Re : Suppression cellule par erreur dans macro

Ben si çà marche bien. par contre ton besoin est peut etre de renseigner la cellule dans la feuil2 ? dans ce cas mettre sheets("feuil2").range("OI").value = v

 

[Boubas1]

Re : Suppression cellule par erreur dans macro

Bonsoir,

En fait dans mon exemple envoyé, j'ai 1 message d'erreur: "Erreur de compilation: argument nommé introuvable", et ça surligne "Searchformat:=" dans le code vba. Sinon, ca m'est égal, l'info peut être collé dans la feuille 1 ou 2, ce sont les memes feuilles.

 

[skoobi]

Re : Suppression cellule par erreur dans macro

Bonsoir,

quel est ta version d'excel?
Si <2002, essaye enlevant cet argument.

 

[Boubas1]

Re : Suppression cellule par erreur dans macro

J'ai excel 2000.

 

[Boubas1]

Re : Suppression cellule par erreur dans macro

J'ai enlévé "Searchformat:=" mais ça ne marche toujours pas.