[Résolu] Affecter une variable Long au lieu d'un nombre dans une cellule

[Lone-wolf]

Bonsoir le Forum,

Sub test()
Dim cel As Range
Set cel = Range("z1")
cel.Value = cel.Value + 1
Range("b2").Value = Chr(cel)
If cel.Value = 90 Then cel.Value = 64
End Sub

Comme vous pouvez le voir dans le code, dans la cellule Z1 j'ai inscrit 64. Maintenant, au lieu d'avoir 64 dans une cellule, j'aimerais inscrire ce nombre au travers d'une variable (Long). Est-ce possible?

Merci d'avance.



A+

 

[Dranreb]

Re : Affecter une variable Long au lieu d'un nombre dans une cellule

Bonsoir.
Oui, pas de problème, pourvu que sa valeur ne dépasse pas 255 si vous le convertissez en caractère. Sinon il y a aussi ChrW$
Cordialement

 

[Lone-wolf]

Re : Affecter une variable Long au lieu d'un nombre dans une cellule

Bonsoir Dranreb,

merci d'avoir répondu. Comme vous pouvez le voir dans la macro, les nombres vont de 64 à 90. Ce sont les caractères des lettres alphabétiques (A à Z).

Mais comment nommer cette variable, comment l'appliquer?



A+

 

[MichD]

Re : Affecter une variable Long au lieu d'un nombre dans une cellule

Bonjour,

Ce serait bien si tu avais pris soin de définir ce que tu tentes
d'effectuer comme travail. Cela aide à te suggérer un code plus
approprié le cas échéant.

Comme la variable ne peut pas prendre des valeurs au-dessus
de 255, Integer est plus approprié que Long pour le type de variable.

Sub test()
Dim MyVar As Integer, Cel As Range
 
'Définir la valeur de ta variable MyVar
MyVar = "???"
 
Set Cel = Range("z1")
Cel.Value = Cel.Value + 1
'Code Ascii varie entre 0 et 255
If Cel.Value >= 0 And Cel.Value < 256 Then
    Range("b2").Value = Chr(Cel.Value)
    If Cel.Value = 90 Then Cel.Value = MyVar
End If
End Sub

 

[Lone-wolf]

Re : Affecter une variable Long au lieu d'un nombre dans une cellule

Bonsoir MichD,

Désolé ce n'est pas ça que je cherche à faire.

C'est changer Set cel = Range("z1") (cellule où j'ai inscrit 64), par: MyVar ou autre = 64. Ensuite,

If MyVar = 90 Then MyVar = 64. Enfin, si c'est comme cela qu'on écrit.



A+

 

[MichD]

Re : Affecter une variable Long au lieu d'un nombre dans une cellule

C'est changer Set cel = Range("z1") (cellule où j'ai inscrit 64), par: MyVar ou autre = 64

Désolé, mais je ne parviens pas à saisir ce que tu veux!

Exemple : Si tu veux affecter à une variable la valeur contenue dans une cellule :

Sub Impression()
Dim MyVar As Integer

If IsNumeric(Range("Z1")) Then
   MyVar = Range("Z1")
   '..../ reste du code

End If
End Sub

 

[Lone-wolf]

Re : Affecter une variable Long au lieu d'un nombre dans une cellule

Re MichD,

Si tu veux affecter à une variable la valeur contenue dans une cellule

Non, il faut laisser tomber Range("z1") et mettre à la place Dim num% - num = 64 ou quelque chose du genre. Et que celui-ci soit pris en considération dans Chr(num).



A+

 

[MichD]

Re : Affecter une variable Long au lieu d'un nombre dans une cellule

Désolé, je passe la main à quelqu'un de plus perspicace.
Je ne comprends pas ta demande!

Bonne chance.

 

[Dranreb]

Re : Affecter une variable Long au lieu d'un nombre dans une cellule

Comme la variable ne peut pas prendre des valeurs au-dessus
de 255, Integer est plus approprié que Long pour le type de variable.

Tant qu'a chipoter sur le nombre d'octets occupés, plutôt Byte à ce compte là, et sur ce raisonnement !

Dim N As Byte, C As String * 1
N = 64
C = Chr$(N)

Cordialement.

 

[Habitude]

Re : Affecter une variable Long au lieu d'un nombre dans une cellule

Bonjour à tous

Pour une variable globale, tu déclare ta variable public dans un Module.

Public num as long

 

[Lone-wolf]

Re : Affecter une variable Long au lieu d'un nombre dans une cellule

Bonjour Dranreb, Habitude,


@Dranreb: désolé mais, avec l'exemple que vous avez donné, la cellule B2 reste à A; il n'y a pas d'incrémentation.
En mettant For Next, ça part directement à Z. Il faudrait faire en sorte qu'à chaque clic, une lettre s'incrémente.


Merci à tous les deux


A+

 

[Si...]

Re : Affecter une variable Long au lieu d'un nombre dans une cellule

salut

indépendemment de l'évènement, et Si... tu essaies ?

Sub caract()
  Dim N As Long
  For N = 1 To 1000
    If N < 129 Then Cells(N, 1) = Chr(N) Else Cells(N, 1) = ChrW(N)
  Next
End Sub

 

[job75]

Re : Affecter une variable Long au lieu d'un nombre dans une cellule

Bonjour à tous,

Si j'ai bien compris, on peut mémoriser dans le nom défini mem :

Sub test()
If IsError([mem]) Then ThisWorkbook.Names.Add "mem", 64
ThisWorkbook.Names.Add "mem", [mem] + 1
If [mem] = 91 Then ThisWorkbook.Names.Add "mem", 65
MsgBox Chr([mem]) 'pour tester
End Sub

Nota : =CODE("A") renvoie 65...

A+

 

[job75]

Re : Affecter une variable Long au lieu d'un nombre dans une cellule

Re,

Petites améliorations :

Sub test()
'le nom créé est invisible...
With ThisWorkbook.Names
  If IsError([mem]) Then .Add "mem", 64
  .Add "mem", [mem] + 1, False
  If [mem] = 91 Then .Add "mem", 65, False
End With
MsgBox Chr([mem]) 'pour tester
End Sub

au cas où un petit malin veuille bricoler le nom mem...

Edit : avec IIf on gagne une ligne :

Sub test()
'le nom créé est invisible...
With ThisWorkbook.Names
  If IsError([mem]) Then .Add "mem", 64
  .Add "mem", IIf([mem] = 90, 65, [mem] + 1), False
End With
MsgBox Chr([mem]) 'pour tester
End Sub

A+

 

[job75]

Re : Affecter une variable Long au lieu d'un nombre dans une cellule

Re,

Bien entendu si à chaque ouverture du fichier on veut redémarrer par "A", on ne mémorisera pas dans un nom défini mais dans une variable Static :

Sub test()
Static mem As Byte
mem = IIf(mem Mod 90, mem + 1, 65)
MsgBox Chr(mem) 'pour tester
End Sub

A+