Question de range concaténéRésolu

Question

Bonjour &#224; tous,



Je suis nouveau sur le forum et nouveau dans le vb (je cumule ;)



J'ai une petite question &#224; vous soumettre que je ne parviens pas &#224; r&#233;soudre.

Mon but est de remplacer le contenu au format texte de chaque cellule
d'une colonne par sa valeur (fonction val). (La colonne K pour notre
exemple)



Voici ma fa&#231;on de faire pour traiter toute la colonne de haut en bas :

Sub valcolK()

    For n = 1 To 65536

        Dim x As Long

        Dim z As String

        x = n

        z = "K" & x

        Range("z").Select

        ActiveCell.FormulaR1C1 = Val(Range("z").Value)

    Next n

End Sub



Le bat blesse au niveau de Range("z").Select o&#249; malheureusement "z" n'est pas interpr&#233;t&#233; comme il se doit. Sauriez-vous me dire o&#249; est-ce que j'ai fait une b&#234;tise ? Merci

codea · Accepted Answer

Range(z)

c'est tout ! 

c'est d&#233;ja un string ... pas besoin de "" 

  Rien ne sert de courir, il faut partir &#224; point.

                        &

aieeeuuuuu · Answer

oui, d'autre part qq conseil par rapport a ton code :

tu devrais sortir les d&#233;claration de ta boucle :
    Dim x As Long
    Dim z As String
    For n = 1 To 65536
   ...

d'autre part, tu peux te passer de la variable x, en utilisant directement directement n dans ta boucle :


z = "K" & cstr(n)

(le Cstr sert a convertir le type de ta variable, ce tu fait implicitement part x = n )

emessa · Answer

Merci beaucoup. Tout fonctionne correctement maintenant !

Question de range concaténé

3 réponses

Discussions similaires