Discussion :

[mayc5364]

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 :

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

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

[jfontaine]

Bonjour,

Ton problème vient de la ligne

Code :

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

Range("B2").Select

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

Code :

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

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

[mayc5364]

Je te remercie ca fonctionne a bientot

[Dereck07]

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

Code :

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

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 :

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

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"

[diude54]

Bonjour à tous,
Juste une petite précision.

Dereck07 quand tu fais ceci:

Code :

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

Dim Ligne, Colonne as integer

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

Code :

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

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 :

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

Dim Ligne as Long, Colonne as Long

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

[Dereck07]

Oui, tu as raison diude54.

Il faut faire:

Code :

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

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.