aide sur macro excel

[Broyon pascal]

bonjour,

je voudrais créer une macro excel qui se répète autant de fois que le champ situé deux lignes plus bas et en colonne A , n'est pas vide .

explication dans mon vocabulaire :

Aller en A2 , sélectionner A2;D2 , couper, et coller à la ligne précédente dans la colonne E , donc en E1
Aller trois lignes plus bas en colonne A (A4) et si la cellule n'est pas vide
sélectionner A44 , couper , et coller à la ligne précédente dans la colonne E , donc en E3

Aller trois lignes plus bas en colonne A (A6) et si la cellule n'est pas vide
sélectionner A66 , couper , et coller à la ligne précédente dans la colonne E , donc en E5

pour résumé , le contenu de la deuxiéme ligne vient toujours se coller
au contenu de la ligne précédente , et le traitement continu tant que
les lignes numérotées "paires" 2 4 6 8 etc ne sont pas vides

merci de m'éclairer sur cette macro

 

[Michel_M]

Salut Pascal,

en ce WE à la météo pourrie, ci dessous proposition de macro:

Option Explicit

Sub lig_paire()
Dim cptr As Long
ActiveSheet.Unprotect
Application.ScreenUpdating = False

cptr = 2
While Cells(cptr, 1) > 0
Range(Cells(cptr - 1, 5), Cells(cptr - 1, 8)) = Range(Cells(cptr, 1), Cells(cptr, 4)).Value
Range(Cells(cptr, 1), Cells(cptr, 4)).ClearContents
cptr = cptr + 2
Wend

ActiveSheet.Protect

End Sub

 

[Jean Michel]

Je recherche une valeur dans une basez de données ==> pas de problème. Ensuite, je voudrais me décaler d'une case vers la gauche par rapport à la valeur trouvée dans cette base de données.

Merci

 

[Gérard]

Bjr,

je voudrai connaître l'astuce pour déplacer une macro personnelle et envoyer cette dernière un autre utilisateur.
Merci Gérard

 

[G.STEMPF]

Bonjour

Je souhaite créer une macro sur une feuille excel

Créer une impression de cette feuille mais uniquement les lignes corespondant à un critère dans une cellule (exp. k8:k50 = 1 ou valeurs suppérieurs

MERCI POUR VOTRE AIDE