A voir également:
- Pb Excel : extration de la dernière valeur d'une colonne
- Excel vba modulo - Forum Visual Basic
- Tan-1 excel - Forum C++ & C++ .NET
- Arctangente excel ✓ - Forum Visual Basic 6
- Excel gmao - Forum Visual Basic 6
- Vpm excel - Forum PHP
3 réponses
Ben voyons..
Pas tres compliqué.
Il suffit de faire une p'tite macro qui démarre dès la première colonne et qui se décale d'un cran à droite tant que pas vide (C'est une proposition parmis beaucoup d'autres)
du style:
tu me met en première colonne via:
range("A1").Select (par exemple)
if activecell.value<>empty then
tant que activecell.value<>empty faire
compte = compte + 1 (pour gerer le cas ou pas de
données du tout)
activecell.offset(0,1).select
test = true (permet de dire OK on est passé)
fin tant que
activecell.offset(0,-1).select
variable=activecell.value...
(le tour est joué, il ne reste plus qu'a ajouter cette variable dans la formule toujours par l'intermédiare d'une petite macro...)
else if
messagebox pour dire "espèce de rigolo, il n'y a rien dans
ta colonne..."
end if
Dans cet exemple, je coupe au plus court mais rien ne t'empêche de stocker le contenu de la cellule dans un tableau de variable et donc quand tu atteint le bout de ta ligne, tu vas chercher le contenu de la case n-1...
Pas tres compliqué.
Il suffit de faire une p'tite macro qui démarre dès la première colonne et qui se décale d'un cran à droite tant que pas vide (C'est une proposition parmis beaucoup d'autres)
du style:
tu me met en première colonne via:
range("A1").Select (par exemple)
if activecell.value<>empty then
tant que activecell.value<>empty faire
compte = compte + 1 (pour gerer le cas ou pas de
données du tout)
activecell.offset(0,1).select
test = true (permet de dire OK on est passé)
fin tant que
activecell.offset(0,-1).select
variable=activecell.value...
(le tour est joué, il ne reste plus qu'a ajouter cette variable dans la formule toujours par l'intermédiare d'une petite macro...)
else if
messagebox pour dire "espèce de rigolo, il n'y a rien dans
ta colonne..."
end if
Dans cet exemple, je coupe au plus court mais rien ne t'empêche de stocker le contenu de la cellule dans un tableau de variable et donc quand tu atteint le bout de ta ligne, tu vas chercher le contenu de la case n-1...
si ta colonne est A dans feuil1 :
Sheets("feuil1").Select
temp = Range("a1").End(xlDown).Value
MsgBox (temp)
Sheets("feuil1").Select
temp = Range("a1").End(xlDown).Value
MsgBox (temp)
TRès bien mais la dernière ligne, si dans ta colonne tu as une cell vide, sera cette cell! Alors qu'il pourrait y en avoir après.
Le mieux est dès lors de sélectionner la range("A36000") par exemple et puis de remonter comme indiqué dans le précédent message:
temp = activecell.End(xlUP).Value
ou
temp = Range("a36000").End(xlDown).Value
Amic@lement !
Le mieux est dès lors de sélectionner la range("A36000") par exemple et puis de remonter comme indiqué dans le précédent message:
temp = activecell.End(xlUP).Value
ou
temp = Range("a36000").End(xlDown).Value
Amic@lement !
