Copier coller avec condition Résolu/Fermé

Question

Bonjour,
Je souhaiterai avoir une macro pour faire des copier coller avec conditions en automatique:
Voila le tableau d'origine
A              B
27	01/12/10  01/12/10 1209-45
	
	adj accrued expenses acct
6	12/18/09  12/18/09 1209-40
	
33	11/09/09  11/09/09 1009-57
	
25	11/05/09  11/05/09 1009-54
	
30	01/13/10  01/13/10 1209-59
	
36	11/09/09  11/09/09 1009-59
	
	ADJ BAD DEBT EXPENSE
	
Et voila ce a quoi je voudrais aboutir en automatique
A              B
27	01/12/10  01/12/10 1209-45
27	01/12/10  01/12/10 1209-45
27	01/12/10  01/12/10 1209-45
6	12/18/09  12/18/09 1209-40
6	12/18/09  12/18/09 1209-40
33	11/09/09  11/09/09 1009-57
33	11/09/09  11/09/09 1009-57
25	11/05/09  11/05/09 1009-54
25	11/05/09  11/05/09 1009-54
30	01/13/10  01/13/10 1209-59
30	01/13/10  01/13/10 1209-59
36	11/09/09  11/09/09 1009-59
36	11/09/09  11/09/09 1009-59
36	11/09/09  11/09/09 1009-59
36	11/09/09  11/09/09 1009-59

En gros on copie les deux premieres cellules de la premiere ligne (ex : Cell 1:27	Cell : 01/12/10  01/12/10 1209-45) jusqu'a ce que la cellule de la premiere colonne ne soit plus vide. Peu importe ce qu'il y a dans la colonne B le test se faisant sur la colonne A tant que c'est vide on recopie.

Merci de votre reponse cela m'evitera tous les mois de faire 50 mille fois ctrl C/ctrl V.

eriiic · Answer

Bonjour,

Je pense que c'est qcq chose ça que tu veux :
Sub recopie()
    Dim c As Range
    For Each c In Range([A2], [A65536].End(xlUp))
        If c = "" Then
            c.Offset(-1, 0).Resize(1, 2).Copy (c)
        End If
    Next c
    End Sub
End Sub
Sélectionner la feuille concernée et lancer la macro

eric

eriiic · Answer

Il n'y a rien à paramétrer sauf si tu ne veux pas traiter la colonne entière.
Si tu ne veux traiter que la partie sélectionnée en colonne A remplace:
For Each c In Range([A2], [A65536].End(xlUp
par:
for each c in selection

Elle marche sur toute feuille sélectionnée, même d'un autre classeur. Si tu travailles toujours le même classeur tu la mets dedans, sinon tu peux la mettre dans un autre et ouvrir celui-ci quand tu en as besoin.

Pour l'ajouter :
- Alt+F11 pour ouvrir l'éditeur vba
- clic-droit sur le projet à gauche
- insertion / module
- coller le code à droite

Quand tu la lances par Alt+F8 dans les propriétés tu peux définir un raccourci clavier

eriiic · Answer

ca doit etre moi le probleme
Pas tout à fait, j'avais testé avec le code sur la feuille, mais mis dans un module pour pouvoir être exécuté sur n'importe quelle feuille il faut changer la syntaxe.

il faut que je rajoute quelque chose car le test logique se situe dans la colonne A mais il faut egalement que je recopie en meme temps ce qu'il y a dans la colonne B. 
non non, ça le fait avec le .resize

En effacant au passage "ADJ BAL TO MATCH BCSAS" que je ne veux plus. 
Effacer ou supprimer les 2 cellules ?
J'ai choisi la 2nde option. Sinon echange avec la ligne en commentaire

Pour que tu puisses tester si c'est vraiment ça que tu voulais : Thlone.xls

eriiic · Answer

à voir ton fichier j'ai plutôt l'impression que c'est la colonne C qu'il faut prendre en référence si tu veux que les dernières lignes soient remplies.
Thlone.xls

eriiic · Answer

Teste l'exemple du post 7 basé sur colonne C et dis si c'est ok

eriiic · Answer

ok, n'oublie pas de mettre en résolu...

Copier coller avec condition

6 réponses

Discussions similaires