Excel : copiez une cellule à intervalles réguliers

Vous êtes ici : Accueil > Astuces

Publié le : 15/06/2011 vers 14h
Mise à jour le : 05/05/2011 vers 15h
Catégories :
  • Office

Auteur(s) :
Gilles SALOMON (Membre depuis le 08/10/2008)
Société :
Fonction :
Contactez cet auteur - Affichez les ressources de cet auteur

Si, dans une feuille de calcul, vous voulez recopier une cellule sur ses voisines de droite, mais seulement une colonne sur trois, voici comment faire.

En d'autres termes, la cellule B3, par exemple, devra être dupliquée sur les cellules E3, H3, K3… sans modifier les autres. Vous pouvez y parvenir en créant une macro.

– Pour cela, tapez Alt + F11 pour ouvrir l'éditeur VBA.
– Déroulez le menu Insertion, Module puis saisissez le listing ci-dessous.
– Revenez à Excel. Avant de lancer la macro, inscrivez le mot FIN dans la cellule où la copie doit s'arrêter. Si, par exemple, la macro doit copier B3 en E3, H3 et K3, vous inscrirez FIN en N3.
– Placez le pointeur sur la cellule source (B3), tapez Alt + F8, sélectionnez CopieAvecTrous et cliquez sur Exécuter. Vous pouvez changer la valeur de la variable Ecart (Ecart = 4 par exemple) pour modifier la périodicité des copies (et passer à une colonne sur quatre).

Par ailleurs, si, dans les deux instructions Offset(0,Ecart), vous permutez 0 et Ecart, la copie se fera vers le bas et non plus vers la droite. Dans ce cas aussi, n'oubliez pas d'inscrire FIN dans la cellule où la copie doit s'arrêter.

Sub CopieAvecTrous ()
Ecart = 3
ActiveCell.Copy
ActiveCell.Offset(0, Ecart).Select
While UCase(ActiveCell.Value) <> "FIN"
ActiveSheet.Paste
ActiveCell.Offset(0, Ecart).Select
Wend
End Sub   (Source 01 net)

Votre commentaire:

Votre pseudo :

Votre commentaire :

Saisir les caractères ci-contre dans le champ suivant :
 Rafraichir

PseudoCommentaire
Soyez le premier à réagir !
Nos partenaires : www.bestof-microsoft.com | www.exchangedump.com | www.exchangedump.com | www.formation-exchange.com | www.formation-management-dif.com | www.formation-mcpd.com | www.formation-pmp.com | www.formation-seven.com | www.formation-windows-7.com | www.formation-windows7.com | www.formation-windows-seven.com | www.certification-mcpd.com | www.certification-windows-7.com | www.consulting-exchange.com | www.e-managementinstitute.org | www.certification-mcitp.com | www.formation-mcsa.com | www.bestof-exchange.com | www.exchange-consulting.com | www.bestof-voip.com | www.formation-cisco.com www.formation-mcitp.com.com | www.laboratoire-exchange.com | www.messagerie-consultant.com | www.bestof-windows.com | www.bestof-sharepoint.com | www.messagerie-consultants.com | www.formation-mcts.com | www.consultant-messagerie.com