copier une valeur sur 30 d'une colonne dans une autre.

3 réponses

MaDe

27/09/2005 à 11:41

J'ai une colonne et je voudrais copier une valeur toute les 30 dans uen autre
colonne. sachant que le premiere valeur que je veux est a la ligne 34 et la
suivante donc a la ligne 64...
Merci de votre aide

3 réponses

27/09/2005 à 11:54

Bonjour

A1:Ax tes données initiales
B1:By un extrait tous les 30 en commençant à la 34
=INDIRECT("A"&4+30*LIGNE())
ou
ÞCALER($A$1;3+30*LIGNE();)

Stéphane

"MaDe" a écrit dans le message de news:

J'ai une colonne et je voudrais copier une valeur toute les 30 dans uen
autre
colonne. sachant que le premiere valeur que je veux est a la ligne 34 et
la
suivante donc a la ligne 64...
Merci de votre aide

MaDe

27/09/2005 à 13:28

Merci, ca m'avance. reste que je viens de voir que l'intervalle est des fois
28 des fois 29 au lieu de 30. Je veux recuperer le derniere valeur avant une
serie de 0 voir liste suivante. ici 853 et ensuite 843 et si possible avoir
le numero de la ligne.

793
843
853
0
0
0
0
0
0
0
11
42
82
119
162
201
250
290
337
379
428
480
518
556
602
643
689
721
758
797
842
843
0
0

Bonjour

A1:Ax tes données initiales
B1:By un extrait tous les 30 en commençant à la 34
=INDIRECT("A"&4+30*LIGNE())
ou
ÞCALER($A$1;3+30*LIGNE();)

Stéphane

"MaDe" a écrit dans le message de news:

J'ai une colonne et je voudrais copier une valeur toute les 30 dans uen
autre
colonne. sachant que le premiere valeur que je veux est a la ligne 34 et
la
suivante donc a la ligne 64...
Merci de votre aide

27/09/2005 à 13:57

Rebonjour

une proposition
ligne 1 : titre de colonne
A2:Ax : tes données
B2:Bx : =SI(ET(A2<>0;A3=0);A2;"")
C2:Cx : =LIGNE()

puis filtre automatique sur la colonne B "non vide" et copier le résultat
dans une autre feuille.

Sinon par VBA

Sub Macro1()
i = 1
For Each c In Range("plage")
If c <> 0 And c.Offset(1, 0) = 0 Then
Cells(i, 4) = c
i = i + 1
End If
Next c
End Sub.

avec "plage" tes données et le résultat écrit en colonne D

Stéphane

"MaDe" a écrit dans le message de news:

Merci, ca m'avance. reste que je viens de voir que l'intervalle est des
fois
28 des fois 29 au lieu de 30. Je veux recuperer le derniere valeur avant
une
serie de 0 voir liste suivante. ici 853 et ensuite 843 et si possible
avoir
le numero de la ligne.

793
843
853
0
0
0
0
0
0
0
11
42
82
119
162
201
250
290
337
379
428
480
518
556
602
643
689
721
758
797
842
843
0
0

Bonjour

A1:Ax tes données initiales
B1:By un extrait tous les 30 en commençant à la 34
=INDIRECT("A"&4+30*LIGNE())
ou
ÞCALER($A$1;3+30*LIGNE();)

Stéphane

"MaDe" a écrit dans le message de news:

J'ai une colonne et je voudrais copier une valeur toute les 30 dans uen
autre
colonne. sachant que le premiere valeur que je veux est a la ligne 34
et
la
suivante donc a la ligne 64...
Merci de votre aide

copier une valeur sur 30 d'une colonne dans une autre.

3 réponses

Veuillez sélectionner un problème