Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
851 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Convertir adresse de Cells en Range

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Convertir adresse de Cells en Range

n°1588338
dapit
Posté le 18-07-2007 à 16:33:39  profilanswer
 

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
mood
Publicité
Posté le 18-07-2007 à 16:33:39  profilanswer
 

n°1588403
tegu
Posté le 18-07-2007 à 17:33:09  profilanswer
 

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))

n°1588440
seniorpapo​u
Posté le 18-07-2007 à 18:23:18  profilanswer
 

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
n°1588628
dapit
Posté le 19-07-2007 à 10:14:05  profilanswer
 

merci ça marche !!


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Convertir adresse de Cells en Range

 

Sujets relatifs
décomposer une adresse par macro sur excel[fonction] pour convertir les accents et choses non ascii ?
association de rowsource et de rangeprobleme d'adresse memoire qui rend fou
Convertir plusieurs fichiers en UTF8?Récupérer l'adresse MAC "physique"
convertir un int en char*Url dans barre d'adresse
Listes en python : IndexError: list index out of range HmmmRegex pour tester une adresse MAC
Plus de sujets relatifs à : Convertir adresse de Cells en Range


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR