Convertir adresse de Cells en Range

Convertir adresse de Cells en Range - VB/VBA/VBS - Programmation

Marsh Posté le 18-07-2007 à 16:33:39    

Bonjour,
 
j'ai un petit probleme et ça me prend graaaave la tete, c'est vraiment tout bete.
Je veux ajouter un comment à une cellule mais j'ai la reference en numérique i et k(1 et 1 au lieu de A1 par exemple) , je souhaiterai pouvoir convertir cette reference
en A1, y'a t'il une fonction ou une astuce car je craque de bloquer sur un si petit probleme.
 
Voici le code exemple ça bloque à la premiere ligne.
 

Code :
  1. With Worksheets("MIGRE" ).Range("ICI JE VEUX METTRE MA REFERENCE avec I et K" ).AddComment
  2.                         .Visible = False
  3.                         .Text Worksheets("DATA" ).Cells(c.Row, k).Text
  4. End With


Message édité par dapit le 18-07-2007 à 16:38:08
Reply

Marsh Posté le 18-07-2007 à 16:33:39   

Reply

Marsh Posté le 18-07-2007 à 17:33:09    

D'après la documentation, on devrait pouvoir écrire :
Range(Cells(i, k))
 
Mais j'ai constaté que si on ne précise pas quelle cellule finit la plage, ça déclenche une erreur. C'est peut-être lié aux différents paramètres Excel d'adressage des cellules, je ne sais pas, mais je te conseille cette syntaxe :  
Range(Cells(i, k), Cells(i, k))

Reply

Marsh Posté le 18-07-2007 à 18:23:18    

Bonsoir,
strad = Cells(i, k).Address(RowAbsolute:=False, ColumnAbsolute:=False)
Range(strad).activate
If Not ActiveCell.Comment Is Nothing Then ActiveCell.Comment.Delete
With Worksheets("MIGRE" ).AddComment
.Visible = False
.Text etc...
Cordialement


Message édité par seniorpapou le 18-07-2007 à 18:25:47
Reply

Marsh Posté le 19-07-2007 à 10:14:05    

merci ça marche !!

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed