traiter une sélection sur excel

Version imprimable

30/12/2010, 17h42
zskiredj

traiter une sélection sur excel
Bonjour à tous !

Je souhaiterais faire un traitement sur deux colonnes choisies par l'utilisateur dans un tableau dynamique. En fait l'utilsateur choisira deux colonnes contigues, et je souhaiterais faire la différence des données numériques de chacune des lignes des deux colonnes choisies.
J'ai ce code :
Code:

1 2 Worksheets("Sheet1").Activate ActiveCell.CurrentRegion.Select
Mais je ne sais pas comment me balader dans la selection, càd comment récupérer par exemple la valeur de la 1ere ligne de la colonne de gauche de la selection.

Merci d'avance pour votre réponse !

Bonjour

je ne suis pas certain d'avoir tout compris

j'ai une cellule active, à partir de cette cellule, je selectionne une colonne que je dois traiter avec la colonne de gauche, par contre ce traitement on le met où ?

Code:

1
2
3
4
5
6
7
8
sub essai()
    Dim plage as range ' je definis une plage de cellule
    Dim cel as range ' je definis une cellule
    Set plage = range(cells(1,activecell.column).address & ":" & cells(65536,activecell.column).end(xlup).address) ' je recupere la colonne dans ma plage
    For each cel in plage ' je cree une boucle qui va scruter toutes les cellule de la plage
        msgbox cel.offset(0,-1) ' affiche la cellule de gauche en message
    next
end sub

30/12/2010, 18h18
zskiredj

merci pour ta réponse.
Malheureusement ta boucle ne renvoie que la valeur de la 1èere case à gauche. Il faudrait que je puisse me balader sur la colonne choisie (en descendant !)
30/12/2010, 18h39
Philippe Tulliez

Bonsoir,

Code:

cel.offset(0,-1

Offset(0,-1) est un déplacement de 0 ligne et de -1 colonne par rapport à l'adresse de cel c'est à dire que si la sélection de départ est à D5 la valeur renvoyée avec offset(0,-1) sera la valeur de la cellule C5 donc à toi de décider par le code de combien de ligne ou colonne tu veux te déplacer
30/12/2010, 18h49
zskiredj

merci pour vos réponses rapides !
en fait ce qui me manquait c est :

Code:

activecell.column

Je vais me débrouiller avec cela.
Merci encore pour vos réponses ! :P

Bonsoir,
Lorsque tu sélectionnes un tableau avec UsedRange ou CurrentRegion les propriétés
Address donne la référence ex "$A$1:$F$10
Row donnera le n° de la première ligne du tableau
Column la première colonne
Rows le nombre de lignes
Columns le nombre de colonnes
Le Select ne doit pas être appliqué car cela n'apporte rien et ralentit l'exécution.
Je l'ai placé dans le code ci-dessous, juste pour visualiser la sélection lors de l'exécution du programme.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub selectionRange() Dim cell As Range Set cell = Worksheets("Feuil4").UsedRange MsgBox InfoSelection(cell), Title:="Information sur la sélection" End Sub Function InfoSelection(Selection As Range) Dim txt$ With Selection .Select txt = "Adresse" & vbTab & vbTab & .Address txt = txt & vbCrLf & "Début de ligne" & vbTab & .Row txt = txt & vbCrLf & "Début de colonne" & vbTab & .Column txt = txt & vbCrLf & "Nombre de lignes" & vbTab & .Rows.Count txt = txt & vbCrLf & "Nombre de colonne" & vbTab & .Columns.Count End With InfoSelection = txt End Function

31/12/2010, 15h56
zskiredj

vraiment très instructif ton bout de code ! Je risque d'en avoir besoin dans le futur.
Merci encore pour l'intérêt que tu as porté à mon problème ! :)