Discussion :

[bosk1000]

bonjour a tous

voila le probleme
dans une boucle du type "for next"
je veux pouvoir selectioner la plage de célule de la ligne "k à q"
hors je bloque sur la ligne de commande qui me permet de selectionner cette plage pendant la boucle sur cette ligne

merci pour votre aide

[Godzestla]

Si toi pas montrer ton code.... toi pas recevoir réponse.....

[ouskel'n'or]

Je dirais même plus !
D'autant que j'ai du mal avec

de la ligne "k à q"

C'est une nouvelle version d'Excel ?
Bref, ton code sera le bienvenu

[bosk1000]

ok
excusez moi

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
18
 
numdl = Range("b65536").End(xlUp).Row 'recuper le numero de la dernière ligne du tableau
    For i = 2 To numdl ' pour donner la ligne pour demarer la fonction
    Range("k" & i).Select ' pour activer la formule sur la ligne les une après les autres 
    ActiveCell.FormulaR1C1 = "=IF(RC[-9]="""",R[-1]C[-9],"""")"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-9]="""",R[-1]C[-9],"""")"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-9]="""",R[-1]C[-9],"""")"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-9]="""",R[-1]C[-9],"""")"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-9]="""",R[-1]C[-9],"""")"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-9]="""",R[-1]C[-9],"""")"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-9]="""",R[-1]C[-9],"""")"
next i

Donc cette suite d'operation se fait sur une ligne avec les colone k,l,m,n,o,p,q.
Et ensuite je veux pouvoir selectionner ces éléments pour les copier-collers comme valeur sur la meme ligne mais a partir de la cellule en colone b

[ouskel'n'or]

Si j'ai bien compris, ce code remplace le tien (!?!)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test()
Dim Plage As Range, Numdl As Long
    Numdl = Range("b65536").End(xlUp).Row 'recuper le numero de la dernière ligne du tableau
    Range("k2").FormulaR1C1 = "=IF(RC[-9]="""",R[-1]C[-9],"""")"
    Set Plage = Range("k2:q" & Numdl)
    Range("k2").Copy Plage
    Set Plage = Range("k2:q" & Numdl)
    Plage.Copy
    Range("A2").PasteSpecial xlPasteValues
    Set Plage = Nothing
End sub

Tu dis

[bosk1000]

non,
je dois mal m'exprimer
en fait le code que j'ai mis fait :
1) il se place en cellule K de la ligne
2) il va vérifier si la cellule B de la meme ligne est vide
3) si elle est vide, il copie la cellule qui se trouve au dessus de B (soit B-1 ligne) dans la cellule K
4) etc.. pour L, M, N, O, P, Q par rapport à C,D,E,F,G,H

et donc ce que je veux faire, c'est que les information qui ont été mis sur K,L, M, N, O, P, Q soit reporté en C,D,E,F,G,H de la meme ligne

le fait que cette commande se fasse dans une boucle 'next fort' m'empeche d'utiliser une ligne de commande comme range ("l2:q2") puisque très rapidement il me faudra l'information sur une autre ligne puisque je suis dans une boucle

[ouskel'n'or]

Teste mon code !
Une explication ?
Mon code copie la formule que tu mets dans K2 sur les cellule suivantes en concervant le décalage de 9 colonnes (B pour k puis C pour L puis D pour M, etc.) ces formules étant recopiées de la ligne 2 à la dernière ligne renseignée de ta feuille de calculs.
Oui, mon code fait tout ça.
Enfin, les seules valeurs (sans les formules) de K2 à Q & DernièreLigne sont recopiées depuis B2 à H & DernièreLigne.
Mais avant de dire non, teste

[bosk1000]

excélent ton code
en fait il prend l'ensemble de i to numdl pour le copier sur l'autre partie du tableau

merci merci