problème avec la fonction Range

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : problème avec la fonction Range

elgobi

Bonjour,
J'ai un problème dans mon programme je souhaite sélectionner une colonne toutes les 5 colonnes mais dans la fonction Range les colonnes sont désignées par des lettres . Y'a t'il un moyen d'incrémenter les lettres ou d'utiliser une autre fonction où les colones sont désignées par des chiffres?
merci d'avance

Publicité

eric455

Bonjour elgobi
Bonjour à tous

En VBA les colonnes sont reprises en chiffre par :
macolonne = ActiveCell.Column
Cela devrait t'aider
Cordialement

elgobi

merci
mais le problème c'est que même si je connais le chiffre de la colone, je ne vois pas comment le faire intervenir dans Rang("B6:C104" )
en faite je voudrais que B et C soient des variables

Message cité 1 fois

watashi

La démotivation : JAMAIS !

elgobi a écrit :

merci
mais le problème c'est que même si je connais le chiffre de la colone, je ne vois pas comment le faire intervenir dans Rang("B6:C104" )
en faite je voudrais que B et C soient des variables

Salut elgobi,
c'est toute la colonne que tu veux sélectionner ou juste une partie de la colonne ?
si c'est toute la colonne je m'étais fais une petite fonction personnalisée qui devrait t'aider :

Code :

Public Function ConcatColonne(ByVal Debut As Long, fin As Long, step As Integer) As Range
Dim i As Integer, plage As String
plage = Columns(Debut).Address
For i = Debut + step To fin Step step
plage = plage & "," & Columns(i).Address
Next i
Set ConcatColonne = Range(plage)
End Function

Pour l'appel :

Code :

Sub test()
Dim maPlage As Range
Set maPlage = ConcatColonne(1, 15, 5)
maPlage.Select
End Sub

---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)

elgobi

c'est toute la colonne
merci beaucoup je vais essayer ta fonction personalisée

elgobi

ça marche!!!
merci encore

watashi

La démotivation : JAMAIS !

de rien
édites juste ton post avec un résolu ça pourra en aider d'autres

---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)

Slalom2209

salut à tous!

pour moi c'est plus ou moins le même problème avec "Range", mais je veux prendre la moyenne de diz cellules dans une autre feuille, puis avancer de trente cellules et prendre la moyenne de diz encore, etc.

j'ai cette code, mais je n'arrive pas à changer la partie R[1] et R[10] pour être une fonction de i et i+9, par exemple, où on peut décider quel i on veut utiliser...

Range("C3" ).Select
ActiveCell.FormulaR1C1 = "=AVERAGE(Montée!R[1]C[-1]:R[10]C[-1])"

suggestions? merci!
NB : mon ordi est en anglais, pour les fonctions

PMO2

Bonjour Slalom2209,

Pour pouvoir vous aider il me faut les précisions suivantes

1) L'adresse où s'inscrit la moyenne (C3 dans votre message) puis les adresses suivantes (C4 C5 C6 ... ???)
ainsi que le nom de la feuille des résultats.
2) L'adresse de la plage de cellules qui founissent les données pour le calcul de la moyenne car l'adresse de
l'exemple que vous donnez est une adresse relative (mais relative à quoi ? On ne sait pas)
Indiquez l'adresse selon ce style : feuille Montée plage "A1:B5"
3) Précisez dans quel sens se fait l'avancement de 30 cellules
en lignes : A1 passe à A31
en colonnes : A1 passe à AE1

Cordialement.

PMO
Patrick Morange

FORUM HardWare.fr

Programmation

VB/VBA/VBS

problème avec la fonction Range

Sujets relatifs
Petit problème de parse error	Pointeurs sur fonction membre, héritage, toussa
Probleme étrange avec realloc ...	Probleme avec le validator du W3C
[PHP] Resolu Problème de chemin avec les "include"	[C] Problème de pointeurs et d'allocation
CSS probleme de cascading avec les a:link, a:hover...	Problème CVS - Magic Number
[VBA] [Resolu] [Thx to Epena o/ ] Probleme de couleur de cellule [...]	[JSP] : out.println dans une fonction
Plus de sujets relatifs à : problème avec la fonction Range

Page générée en 0.048 secondes