Appliquer une marco VB sur des champs non successifs

Résolu/Fermé

T.yangui - 11 févr. 2014 à 14:58
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 11 févr. 2014 à 21:06

Bonjour,

j'ai besoin d'appliquer une marco VB sur des champs non successifs, mon marco initial est :

Range("B486").Select
ActiveCell.FormulaR1C1 = "bonjour"

End Sub

je veux rendre le macro de type variable qui consiste à écrire bonjour dans les cellules B486, B506, B539 et B600 en utilisant visual basic

alors je l'ai rendu comme ça :

Dim i As Integer
for i =486; 506; 539 ; 600
Range("B" & i).Select
ActiveCell.FormulaR1C1 = "bonjour"
Next i

mais ça ne marche pas

Pouvez vous m'aider?
Merci

A voir également:

Appliquer une marco VB sur des champs non successifs
Vb cable - Télécharger - Audio & Musique
Vb - Télécharger - Langages
Désinstaller une application sur pc - Guide
Comment désinstaller complètement une application sur android - Guide
Application pour cacher des applications - Guide

2 réponses

Réponse 1 / 2

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
11 févr. 2014 à 15:37

Bonjour,

Essaies ce code :

Dim i As Integer
Dim t As Variant
t = Array(486, 506, 539, 600)
For i = LBound(t) To UBound(t)
  Range("B" & t(i)).Formula = "bonjour"
Next i

T.yangui
11 févr. 2014 à 16:31

Merci Patrice 33740 , ça marche trés bien

tout simplement si la liste est assez longue et peut être portée dans une liste (dans la même feuille ou autre), y a t-il une autre astuce pour ça. si oui comment faire?

MERCI

Réponse 2 / 2

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
11 févr. 2014 à 17:11

Re,

si ton code s'applique à la feuille 1 et
si la liste se trouve en colonne A de la feuille 2, à partir de A1

Dim i As Integer
Dim t As Variant
With Worksheets(2)
  t = Application.Transpose(.Range("A1:A" & _
        .Range("A" & .Rows.Count).End(xlUp).Row).Value)
End With
For i = LBound(t) To UBound(t)
  Worksheets(1).Range("B" & t(i)).Formula = "bonjour"
Next i

T.yangui
11 févr. 2014 à 18:40

ça marche très très bien

Merci Patrice33740, tu es génial

A la prochaine

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
11 févr. 2014 à 21:06

De rien, au plaisir de te relire sur le Forum

Cordialement
Patrice

Discussions similaires

Application pour enlever les vêtements sur une photo

Problème de table des matières

Installer une application non vérifiée Microsoft Store

Boucle sur la première diapositive d'une présentation

Discussions similaires

Newsletters