Discussion :

[Modjow]

Bonjour,

Je suis un débutant en VBA et j'ai besoin de votre aide!

J'aimerais réaliser une macro qui permet de copier une plage de données en colonne "FI24:NT24" ce qui fait 200 cellules.

Ces données je dois les copier dans les lignes d'un autre fichier(fichier synthèse). Les cellules "FI24:NT24" sont pour le moment vides mais seront renseignées plus tard. Il est donc nécessaire que je fasse un collage par incrémentation sous condition :

- vérifier le contenu de la cellule de la plage FI24:NT24
- si cellule non vide, coller la donnée dans le fichier synthèse
- aller à la cellule suivante

Voila mon problème.. J’espère avoir été clair et j’espère surtout que quelqu'un aura la générosité de me proposer une petite macro. Merci d'avance.

[Fvandermeulen]

Salut,

Tu peux utiliser la boucle 'For To' c'est la boucle basique à connaitre.

Pour ton cas, ça donnerait un truc du genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
sub Boucle()
Dim WsS as worksheet, WsC as worksheet
Dim R as long, C as long
 
Set WsS=sheets("Source") 'Remplace Source par le nom de ta feuille d'origine
set wsC=sheets("Cible") 'Remplace Cible par le nom de la feuille où tu veux copier
 
For C = 165 to 384 '164 pour la colonne FI et 384 pour la colonne NT
if wss.cells(24,C)<>"" then
r=r+1 'Incrémente le compteur pour la ligne où copier
wsc.cells(r,1)=wss.cells(24,c) 'Inscrit la valeur de la source dans la cible en colonne A, ligne variable
end if
 
next r

Attention, je viens de l'écrire à main levée et sans tester , j'espère ne pas avoir fait de coquille mais ça devrait te donner une base pour adpater à ton cas

A+

P.S. Il y a une section spécifique pour le VBA Excel.

[Modjow]

Merci beaucoup, j'ai réussi a faire ce que je voulais grâce a ton aide!