modification de macro VBA

je ne sais pas ecrire en VBA donc j utilise l'enregistreur pour faire du VBA et j utilise aussi les macros excel4.
Pour certaines actions je suis obligé de passer par le VBA plus recent
voici ce que l'enregistreur a ecrit :

Code:

---

1 2 3 4

Windows("cajusold.csv").Activate Range("B2").Select ActiveCell.FormulaR1C1 = "CG FREGATE/OPERATIONE4JOURNALRBTEM" With ActiveCell.Characters(Start:=1, Length:=20).Font

---

Le problème, c'est que la macro ne fonctionne que pour la cellule selectionnée.
Je souhaiterai que la macro VBA ne fasse pas etat de la position precise de la cellule, ici R1C1je suppose mais fasse etat de cell.active car je veux appliquer le traitement de la macro a differentes cellules de la feuille; En faite cette macro sera un sous programme d une macro excel4.
comment faire? merci

Bonjour,

Ton problème vient de la ligne

Code:

---

Range("B2").Select

---

Qui place le curseur sur B2. Et non de la ligne

Code:

---

ActiveCell.FormulaR1C1= "CG FREGATE/OPERATIONE4JOURNALRBTEM"

---

Qui utilise bien la cellule active pour inscrire une formule de type R1C1

NB : il serait plus "juste" de remplacer FormulaR1C1 par Value

Je te remercie ca fonctionne a bientot

Je ne sais pas si c'est ce que tu cherches?
(pour ecrir dans C3 par exemple)

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim R as Range Dim Ligne, colonne as integer   Ligne =3 Colonne=3   Set R = ActiveWorkbook.Sheets("Feuil1").Range(ActiveWorkbook.Sheets("Feuil1").Cells(Ligne,colonne))   R.Formula = "CG FREGATE/OPERATIONE4JOURNALRBTEM"

---

ou directement:

Code:

---

1 2 3 4 5 6 7 8

Dim Ligne, colonne as integer   Ligne =3 Colonne=3   ActiveWorkbook.Sheets("Feuil1").Range(ActiveWorkbook.Sheets("Feuil1").Cells(Ligne,colonne)).Formula = "CG FREGATE/OPERATIONE4JOURNALRBTEM"

---

Bonjour à tous,
Juste une petite précision.

Dereck07 quand tu fais ceci:

Code:

---

Dim Ligne, Colonne as integer

---

Seul Colonne est déclarée comme Integer, Ligne sera du typa Variant.
Il faut faire:

Code:

---

Dim Ligne as Integer, Colonne as Integer

---

Enfin dans ce cas tu n'es pas obligé d'utiliser Integer mais tu peux les déclarer en Long:

Code:

---

Dim Ligne as Long, Colonne as Long

---

Et puis pourquoi ne pas mettre cells(3,3) directement?
;)

Oui, tu as raison diude54.

Il faut faire:

Code:

---

1 2 3 4 5 6 7

Dim Ligne as integer, colonne as integer   Ligne =3 Colonne=3   ActiveWorkbook.Sheets("Feuil1").Cells(Ligne,colonne).Formula = "CG FREGATE/OPERATIONE4JOURNALRBTEM"

---

En faite on fait 'range' pour travailler sur un groupe de cellule
ex: Range(cells(2,2),cells(2,4)) , pour les celulles B2 à D2.

Je pense que le premier exemple que j'ai donné ne fonctionnait pas. :oops:

Si tu fais

Code:

---

Range(cells(3,3))

---

Cela revient à ecrire

Code:

---

Cells(3,3)

---

Maintenant si tu veux travailler sur un groupe de cellules:

Code:

---

Range(Cells(Ligne,Colonne),cells(Ligne+2,Colonne+2))

---

Par exemple.
Sinon la remarque était pourquoi faire

Code:

---

1 2 3 4

Ligne=3 Colonne=3   cells(Ligne,Colonne)

---

Et pas directement

Code:

---

Cells(3,3)

---

C'est sur que pour adapter à son cas, si il ne connait pas à l'avance le n° de Ligne et de colonnes il va devoir travailler comme tu l'as montré.

Code:

---

1 2 3 4

Ligne=Range("A65536").end(xlup).row Colonne=Range("A1").end(xltoright).column   Cells(Ligne,Colonne)

---

Par exemple