macro pour du copier/coller

[Infratunes]

Bonjour le forum,

Dans la feuille ci-jointe, je voudrais remplacer les cellules vides par la référence qui correspond juste au dessus.
Sachant qu'il y a 12000 lignes, c'est assez fastidieux de faire ça à la souris !

Avez-vous une idée ? Faut-il utiliser une macro ?

Merci beaucoup !

Guillaume.

Message édité par: infratunes, à: 10/02/2006 12:21

 

[Infratunes]

le fichier

j'ai du réduire sa taille !

merci 🙂

[file name=Classeur1_20060210122804.zip size=48434]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20060210122804.zip[/file]

 

[Jeannot45]

salut infratunes

Ci dessous une petite macro qui drevrait résoudre ton problème

Sub CopierCell()
Dim Cell As Range
Dim VarContenu As Variant

Range('A1').Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select

For Each Cell In Selection
    If Cell EST DIFFERENT DE '' Then
        VarContenu = Cell
    Else
        Cell = VarContenu
    End If
Next

End Sub

Bonne continuation

Jeannot

 

[Jeannot45]

Re,

Petite info complémentaire:
pour pouvoir poster le message j'ai du écrire EST DIFFERENT DE en toutes lettres dans le code.

Il te faudra mettre les symboles habituels pour que la macro fonctionne

Jeannot

 

[Infratunes]

Merci Jeannot !

pourrais tu me coller la macro dans le classeur xls car je ne sais pas par quoi il faut remplacer le EST DIFFERENT DE.

Merci bien !

 

[Jeannot45]

re,

tu remplaces Est different de par les symboles de comparaison habituels juxtaposés

Plus petit que ... et Plus grand que ...

a+

Jeannot

 

[Infratunes]

Dans quelle partie de VB dois-je copier le code ? General, worksheet...

J'ai une message d'erreur qui m'indique : impossible d'exécuter le code en mode arrêt.

:huh:

comment puis-je régler cela?

Merci ! 🙂

 

[Jeannot45]

Re,

Je te joins ton fichier avec la macro.

Bonne réception

Jeannot

 

[Infratunes]

ah, le fichier n'a pas été joint :ermm:

 

[Jeannot45]

re,

Excuse moi .... Je Croyais ...
Enfin il est Vendredi

Jeannot

 

[Jeannot45]

Re,

Des difficultés à Joindre le fichier

Je recommence parce qu'il etait un peu trop lourd (Max 50Ko)

Jeannot [file name=CopierColler_20060210142817.zip size=6179]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/CopierColler_20060210142817.zip[/file]

 

[Infratunes]

il est peut être trop lourd meme en zip,

sinon tu peux l'envoyer la :
erreur404_arobase_gmail_point_com

Merci 🙂

 

[Infratunes]

ah je pense que tu as fait un peu trop de menage ! la macro a disparu lol

sinon envoye la moi par mail

merci bcp ! 🙂

 

[Jeannot45]

re,

Non, la macro est toujours dans le fichier
tu peux la voir en faisaint ALT F11

puis tu ouvres le module1

jeannot

 

[Infratunes]

B)
Merci ca marche super 🙂