besoins d'aide !
comment faire pour sélectionner une plage de cellule (la colonne E par ex)
dont on ne connaît pas la longueur (extraction de longueur variable) pour y
coller une formule de calcul...?????
merci de votre aide
A+
Bonjour. En supposant que ta plage commence en E10 et qu'il n'y a pas d'auttres cellules occupées en dessous de ta zone d'extraction :
Set Plage = Range("E10", Range("E65536").End(xlUp))
sinon,
Set Plage = Range("E10", Range("E10").End(xlDown))
à condition qu'il n'y ait pas de cellules vides dans ton extraction. Cordialement. Daniel <@club-internet.fr> a écrit dans le message de news: 431d83c4$0$21298$
Bonjour à tous,
besoins d'aide ! comment faire pour sélectionner une plage de cellule (la colonne E par ex) dont on ne connaît pas la longueur (extraction de longueur variable) pour y coller une formule de calcul...????? merci de votre aide A+
Bonjour.
En supposant que ta plage commence en E10 et qu'il n'y a pas d'auttres
cellules occupées en dessous de ta zone d'extraction :
Set Plage = Range("E10", Range("E65536").End(xlUp))
sinon,
Set Plage = Range("E10", Range("E10").End(xlDown))
à condition qu'il n'y ait pas de cellules vides dans ton extraction.
Cordialement.
Daniel
<@club-internet.fr> a écrit dans le message de news:
431d83c4$0$21298$7a628cd7@news.club-internet.fr...
Bonjour à tous,
besoins d'aide !
comment faire pour sélectionner une plage de cellule (la colonne E par ex)
dont on ne connaît pas la longueur (extraction de longueur variable) pour
y coller une formule de calcul...?????
merci de votre aide
A+
Bonjour. En supposant que ta plage commence en E10 et qu'il n'y a pas d'auttres cellules occupées en dessous de ta zone d'extraction :
Set Plage = Range("E10", Range("E65536").End(xlUp))
sinon,
Set Plage = Range("E10", Range("E10").End(xlDown))
à condition qu'il n'y ait pas de cellules vides dans ton extraction. Cordialement. Daniel <@club-internet.fr> a écrit dans le message de news: 431d83c4$0$21298$
Bonjour à tous,
besoins d'aide ! comment faire pour sélectionner une plage de cellule (la colonne E par ex) dont on ne connaît pas la longueur (extraction de longueur variable) pour y coller une formule de calcul...????? merci de votre aide A+
smallfries
merci Daniel, je pense avoir compris le principe : selection de E10 jusqu'a ce que les celulles soient vides... cela résoud en partie mon prob : 1) soit jel'applique sur la comonne adjacente qui contient des données sans cel vide et ensuite ??? comment dire que je veux la même longueur de selection mais dans la colonne d'à coté ??? 2) soit cela ne esoud pas mon prob puisque les cels de E sont vides ???
merci de tes conseils
merci Daniel,
je pense avoir compris le principe : selection de E10 jusqu'a ce que
les celulles soient vides...
cela résoud en partie mon prob :
1) soit jel'applique sur la comonne adjacente qui contient des données
sans cel vide et ensuite ??? comment dire que je veux la même longueur
de selection mais dans la colonne d'à coté ???
2) soit cela ne esoud pas mon prob puisque les cels de E sont vides ???
merci Daniel, je pense avoir compris le principe : selection de E10 jusqu'a ce que les celulles soient vides... cela résoud en partie mon prob : 1) soit jel'applique sur la comonne adjacente qui contient des données sans cel vide et ensuite ??? comment dire que je veux la même longueur de selection mais dans la colonne d'à coté ??? 2) soit cela ne esoud pas mon prob puisque les cels de E sont vides ???
merci de tes conseils
smallfries
bon pour ceux qui en auront besoins (des débutants omme moi ;o)) ) voici comment j'ai fai : 'selectionner la colonne d'à coté qui contient des données et la nome "plage"... Set plage = Range("AS3", Range("AS3").End(xlDown))
'décale la selection d'1 colonne en AR plage.Offset(rowOffset:=0, columnOffset:=-1).Activate
'pour chaque cel de la selection entré "T3" par ex... Dim Cellule As Object For Each Cellule In Selection Cellule = "T3" Next End Sub
et voilaaa ! PS surement il doit y avoir plus simple mais bon.... ! merci à tous
bon pour ceux qui en auront besoins (des débutants omme moi ;o)) )
voici comment j'ai fai :
'selectionner la colonne d'à coté qui contient des données et la
nome "plage"...
Set plage = Range("AS3", Range("AS3").End(xlDown))
'décale la selection d'1 colonne en AR
plage.Offset(rowOffset:=0, columnOffset:=-1).Activate
'pour chaque cel de la selection entré "T3" par ex...
Dim Cellule As Object
For Each Cellule In Selection
Cellule = "T3"
Next
End Sub
et voilaaa !
PS surement il doit y avoir plus simple mais bon.... !
merci à tous
bon pour ceux qui en auront besoins (des débutants omme moi ;o)) ) voici comment j'ai fai : 'selectionner la colonne d'à coté qui contient des données et la nome "plage"... Set plage = Range("AS3", Range("AS3").End(xlDown))
'décale la selection d'1 colonne en AR plage.Offset(rowOffset:=0, columnOffset:=-1).Activate
'pour chaque cel de la selection entré "T3" par ex... Dim Cellule As Object For Each Cellule In Selection Cellule = "T3" Next End Sub
et voilaaa ! PS surement il doit y avoir plus simple mais bon.... ! merci à tous
Christian.L
Bonjour
Ta colonne de contrôle est en D Ta colonne à remplir est en E Ta première ligne significative est la numéro 2 (par exemple)
Sub Remplissage() Dim Ligne as Integer Ligne = 2 While Cells(Ligne, 4).Value <> "" Cells(Ligne, 5).FormulaR1C1Local ="Ma formule" Ligne = Ligne + 1 Wend End Sub
Bon courage
"smallfries" a écrit dans le message de news:
merci Daniel, je pense avoir compris le principe : selection de E10 jusqu'a ce que les celulles soient vides... cela résoud en partie mon prob : 1) soit jel'applique sur la comonne adjacente qui contient des données sans cel vide et ensuite ??? comment dire que je veux la même longueur de selection mais dans la colonne d'à coté ??? 2) soit cela ne esoud pas mon prob puisque les cels de E sont vides ???
merci de tes conseils
Bonjour
Ta colonne de contrôle est en D
Ta colonne à remplir est en E
Ta première ligne significative est la numéro 2 (par exemple)
Sub Remplissage()
Dim Ligne as Integer
Ligne = 2
While Cells(Ligne, 4).Value <> ""
Cells(Ligne, 5).FormulaR1C1Local ="Ma formule"
Ligne = Ligne + 1
Wend
End Sub
Bon courage
"smallfries" <smallfries@nomade.fr> a écrit dans le message de news:
1126013400.639569.83710@g14g2000cwa.googlegroups.com...
merci Daniel,
je pense avoir compris le principe : selection de E10 jusqu'a ce que
les celulles soient vides...
cela résoud en partie mon prob :
1) soit jel'applique sur la comonne adjacente qui contient des données
sans cel vide et ensuite ??? comment dire que je veux la même longueur
de selection mais dans la colonne d'à coté ???
2) soit cela ne esoud pas mon prob puisque les cels de E sont vides ???
Ta colonne de contrôle est en D Ta colonne à remplir est en E Ta première ligne significative est la numéro 2 (par exemple)
Sub Remplissage() Dim Ligne as Integer Ligne = 2 While Cells(Ligne, 4).Value <> "" Cells(Ligne, 5).FormulaR1C1Local ="Ma formule" Ligne = Ligne + 1 Wend End Sub
Bon courage
"smallfries" a écrit dans le message de news:
merci Daniel, je pense avoir compris le principe : selection de E10 jusqu'a ce que les celulles soient vides... cela résoud en partie mon prob : 1) soit jel'applique sur la comonne adjacente qui contient des données sans cel vide et ensuite ??? comment dire que je veux la même longueur de selection mais dans la colonne d'à coté ??? 2) soit cela ne esoud pas mon prob puisque les cels de E sont vides ???
merci de tes conseils
AV
Set plage = Range("AS3", Range("AS3").End(xlDown)) plage.Offset(rowOffset:=0, columnOffset:=-1).Activate Dim Cellule As Object For Each Cellule In Selection
Cellule = "T3"
Next
PS surement il doit y avoir plus simple mais bon.... !
Ah ça oui ! ;-)
Range("AR3:AR" & [AS65536].End(3).Row) = "T3"
AV
Set plage = Range("AS3", Range("AS3").End(xlDown))
plage.Offset(rowOffset:=0, columnOffset:=-1).Activate
Dim Cellule As Object
For Each Cellule In Selection
Cellule = "T3"
Next
PS surement il doit y avoir plus simple mais bon.... !
Set plage = Range("AS3", Range("AS3").End(xlDown)) plage.Offset(rowOffset:=0, columnOffset:=-1).Activate Dim Cellule As Object For Each Cellule In Selection
Cellule = "T3"
Next
PS surement il doit y avoir plus simple mais bon.... !
pour ma culture j'essai mais je n'arrive pas au résultat escompté avec ta méthode. c'est comme si au moment du test de la celulle d'à coté ( While Cells(Ligne, 4).Value <> "" ) il trouvais cette celulle vide et il va direct à End Sub... curieux ! j'ai testé avec du texte, des formules, du chiffre...id... ? enfi merci qd même
merci Christian,
pour ma culture j'essai mais je n'arrive pas au résultat escompté
avec ta méthode.
c'est comme si au moment du test de la celulle d'à coté ( While
Cells(Ligne, 4).Value <> "" ) il trouvais cette celulle vide et il va
direct à End Sub...
curieux !
j'ai testé avec du texte, des formules, du chiffre...id...
?
enfi merci qd même
pour ma culture j'essai mais je n'arrive pas au résultat escompté avec ta méthode. c'est comme si au moment du test de la celulle d'à coté ( While Cells(Ligne, 4).Value <> "" ) il trouvais cette celulle vide et il va direct à End Sub... curieux ! j'ai testé avec du texte, des formules, du chiffre...id... ? enfi merci qd même