Discussion :

[zskiredj]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[wilfried_42]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 !)

[Philippe Tulliez]

Bonsoir,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[zskiredj]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

activecell.column

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

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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