Valeur ASCII des colonnes sous vba ?
Résolu
bruyaso
Messages postés
8
Date d'inscription
Statut
Membre
Dernière intervention
-
bruyaso Messages postés 8 Date d'inscription Statut Membre Dernière intervention -
bruyaso Messages postés 8 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Code ascii tabulation excel
- Code ascii - Guide
- Tabulation word - Guide
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Code puk bloqué - Guide
7 réponses
Bonjour
'pour col de 1 à 702, rend de "A" à "ZZ"
Function TexteColonne(ByVal col%) As String
TexteColonne = IIf(col > 26, Chr(Int((col - 1) / 26) + 64), "") & Chr((col - 1) Mod 26 + 65)
End Function
'pour col de 1 à 702, rend de "A" à "ZZ"
Function TexteColonne(ByVal col%) As String
TexteColonne = IIf(col > 26, Chr(Int((col - 1) / 26) + 64), "") & Chr((col - 1) Mod 26 + 65)
End Function
Merci Ego
Oui j'avais trouvé cette parade, mais en faite ma question est mal posée
ma variable de colonne va de A à ZA donc du coup je ne sais pas gérer le faire d'avoir la variable s qui dans une boucle varie de la colonne A à ZA
Merci
Oui j'avais trouvé cette parade, mais en faite ma question est mal posée
ma variable de colonne va de A à ZA donc du coup je ne sais pas gérer le faire d'avoir la variable s qui dans une boucle varie de la colonne A à ZA
Range(Cells(R, b), Cells(R, b)).Select
ActiveCell.Formula = "=SUM(" & Chr(s) & "6:" & Chr(s) & "" & Q & ")"
Merci
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
excuse moi, je ne comprends pas ce que tu entends faire.
tu selectionnes 1 cellule, puis tu demandes a cette cellule d'afficher la somme de Var6 a varQ
VarQ je connais pas
la plage de calcul est elle toujours la meme ou fais tu plusieurs plages de calcul auquel cas il faudrait selectionner 1 cellule formula pour chaque plage.
pour ce que je comprends, il te suffirait de decrire une cellule de la colonne souhaitée, puis lancer la macro style :
sub val_col()
Dim ale As Variant, i As Integer, y As Integer
ale = ActiveCell.Address
ale = Right(ale, Len(ale) - 1)
i = InStr(1, ale, "$", vbBinaryCompare)
ale = Left(ale, i - 1)
If Len(ale) = 1 Then
i = Asc(ale)
Columns("" & (Chr(i)) & ":" & (Chr(i)) & "").Select
End If
If Len(ale) = 2 Then
i = Asc(Left(ale, 1))
y = Asc(Right(ale, 1))
Columns("" & (Chr(i)) & (Chr(y)) & ":" & (Chr(i)) & (Chr(y)) & "").Select
End If
End Sub
tu peux aussi utiliser la methode first pour avoir la valeur numerique de la colonne,a laquelle il faudra ajouter 64 mais tu devras doubler a valeur 26 (90 du Z)
tu selectionnes 1 cellule, puis tu demandes a cette cellule d'afficher la somme de Var6 a varQ
VarQ je connais pas
la plage de calcul est elle toujours la meme ou fais tu plusieurs plages de calcul auquel cas il faudrait selectionner 1 cellule formula pour chaque plage.
pour ce que je comprends, il te suffirait de decrire une cellule de la colonne souhaitée, puis lancer la macro style :
sub val_col()
Dim ale As Variant, i As Integer, y As Integer
ale = ActiveCell.Address
ale = Right(ale, Len(ale) - 1)
i = InStr(1, ale, "$", vbBinaryCompare)
ale = Left(ale, i - 1)
If Len(ale) = 1 Then
i = Asc(ale)
Columns("" & (Chr(i)) & ":" & (Chr(i)) & "").Select
End If
If Len(ale) = 2 Then
i = Asc(Left(ale, 1))
y = Asc(Right(ale, 1))
Columns("" & (Chr(i)) & (Chr(y)) & ":" & (Chr(i)) & (Chr(y)) & "").Select
End If
End Sub
tu peux aussi utiliser la methode first pour avoir la valeur numerique de la colonne,a laquelle il faudra ajouter 64 mais tu devras doubler a valeur 26 (90 du Z)