Comment revenir à la cellule de départ

Le
Linebaker
Bonjour,

Voici une partie de mon code.

À chaque fois qu'une cellule à une valeur, elle doit incrémenter une autre
cellule. Par la suite je dois effacer cette cellule pour passer à la
suivante. Voici un exemple de données:
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21


Ajout:
Range("a2").Activate
If ActiveCell.Value < 0 Then
GoTo FIN
ElseIf ActiveCell.Value = 1 Then
Range("j2").Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
> GoTo Range("a2") ->>> il faut revenir à la cellule a2
ActiveCell.Offset(0, 0).Clear
ActiveCell.Offset(0, 1).Select
GoTo Ajout1
ElseIf ActiveCell.Value = 2 Then
Range("j3").Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
ActiveCell.Offset(0, 0).Clear
ActiveCell.Offset(0, 1).Select
GoTo Ajout1

End If

Ajout1:
If ActiveCell.Value < 1 Then
ActiveCell.Offset(1, -7).Select
ElseIf ActiveCell.Value = 1 Then
Range("j2").Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
ActiveCell.Offset(0, 0).Clear
ActiveCell.Offset(0, 1).Select
GoTo Ajout1


FIN:
ActiveWorkbook.Save
Close
End Sub


Merci pour votre aide.
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #1249931
bonjour Linebaker,

si je comprend bien il y a les valeurs de 1 à 28 dans les cellules A2 à
U2

quel serait le résultat final soufaité ?

isabelle


Bonjour,

Voici une partie de mon code.

À chaque fois qu'une cellule à une valeur, elle doit incrémenter une autre
cellule. Par la suite je dois effacer cette cellule pour passer à la
suivante. Voici un exemple de données:
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21

Ajout:
Range("a2").Activate
If ActiveCell.Value < 0 Then
GoTo FIN
ElseIf ActiveCell.Value = 1 Then
Range("j2").Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
---> GoTo Range("a2") ---->>> il faut revenir à la cellule a2
ActiveCell.Offset(0, 0).Clear
ActiveCell.Offset(0, 1).Select
GoTo Ajout1
ElseIf ActiveCell.Value = 2 Then
Range("j3").Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
ActiveCell.Offset(0, 0).Clear
ActiveCell.Offset(0, 1).Select
GoTo Ajout1
...
End If

Ajout1:
If ActiveCell.Value < 1 Then
ActiveCell.Offset(1, -7).Select
ElseIf ActiveCell.Value = 1 Then
Range("j2").Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
ActiveCell.Offset(0, 0).Clear
ActiveCell.Offset(0, 1).Select
GoTo Ajout1
...

FIN:
ActiveWorkbook.Save
Close
End Sub

Merci pour votre aide.


Linebaker
Le #1272200
Bonjour,

En fait il faut qu'à chaque fois qu'un chiffre est rencontré, il faut
incrémenter une autre cellule en rapport avec se chiffre.
Exemple:

1 1 1 1 1 1 1 2 2 2 2 2 3 ....

Résultat : 1 : 7
2 : 5
3 : 1

Il y a donc 7 fois le chiffre 1, 5 fois le chiffre 2 et 1 fois le chiffre 1.

Merci de votre aide

"isabelle" news:
bonjour Linebaker,

si je comprend bien il y a les valeurs de 1 à 28 dans les cellules A2 à
U2

quel serait le résultat final soufaité ?

isabelle


Bonjour,

Voici une partie de mon code.

À chaque fois qu'une cellule à une valeur, elle doit incrémenter une
autre


cellule. Par la suite je dois effacer cette cellule pour passer à la
suivante. Voici un exemple de données:
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21

Ajout:
Range("a2").Activate
If ActiveCell.Value < 0 Then
GoTo FIN
ElseIf ActiveCell.Value = 1 Then
Range("j2").Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
---> GoTo Range("a2") ---->>> il faut revenir à la cellule a2
ActiveCell.Offset(0, 0).Clear
ActiveCell.Offset(0, 1).Select
GoTo Ajout1
ElseIf ActiveCell.Value = 2 Then
Range("j3").Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
ActiveCell.Offset(0, 0).Clear
ActiveCell.Offset(0, 1).Select
GoTo Ajout1
...
End If

Ajout1:
If ActiveCell.Value < 1 Then
ActiveCell.Offset(1, -7).Select
ElseIf ActiveCell.Value = 1 Then
Range("j2").Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
ActiveCell.Offset(0, 0).Clear
ActiveCell.Offset(0, 1).Select
GoTo Ajout1
...

FIN:
ActiveWorkbook.Save
Close
End Sub

Merci pour votre aide.




isabelle
Le #1272197
!! là je comprend pas plus,

est ce c'est données :
1 2 3 4 5 7 8 9 10 11 12 13 14 ...

qui doivent être transformer en celle ci

1 1 1 1 1 1 1 2 2 2 2 2 3 ...

isabelle


Bonjour,

En fait il faut qu'à chaque fois qu'un chiffre est rencontré, il faut
incrémenter une autre cellule en rapport avec se chiffre.
Exemple:

1 1 1 1 1 1 1 2 2 2 2 2 3 ....

Résultat : 1 : 7
2 : 5
3 : 1

Il y a donc 7 fois le chiffre 1, 5 fois le chiffre 2 et 1 fois le chiffre 1.

Merci de votre aide

"isabelle" news:
bonjour Linebaker,

si je comprend bien il y a les valeurs de 1 à 28 dans les cellules A2 à
U2

quel serait le résultat final soufaité ?

isabelle


Bonjour,

Voici une partie de mon code.

À chaque fois qu'une cellule à une valeur, elle doit incrémenter une
autre


cellule. Par la suite je dois effacer cette cellule pour passer à la
suivante. Voici un exemple de données:
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21

Ajout:
Range("a2").Activate
If ActiveCell.Value < 0 Then
GoTo FIN
ElseIf ActiveCell.Value = 1 Then
Range("j2").Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
---> GoTo Range("a2") ---->>> il faut revenir à la cellule a2
ActiveCell.Offset(0, 0).Clear
ActiveCell.Offset(0, 1).Select
GoTo Ajout1
ElseIf ActiveCell.Value = 2 Then
Range("j3").Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
ActiveCell.Offset(0, 0).Clear
ActiveCell.Offset(0, 1).Select
GoTo Ajout1
...
End If

Ajout1:
If ActiveCell.Value < 1 Then
ActiveCell.Offset(1, -7).Select
ElseIf ActiveCell.Value = 1 Then
Range("j2").Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
ActiveCell.Offset(0, 0).Clear
ActiveCell.Offset(0, 1).Select
GoTo Ajout1
...

FIN:
ActiveWorkbook.Save
Close
End Sub

Merci pour votre aide.






ru-th
Le #1272196
!! là je comprend pas plus,
tu me rassures, ;-))

parce que j'en trave que couic !

--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"isabelle" news:
!! là je comprend pas plus,

est ce c'est données :
1 2 3 4 5 7 8 9 10 11 12 13 14 ...

qui doivent être transformer en celle ci

1 1 1 1 1 1 1 2 2 2 2 2 3 ...

isabelle


Bonjour,

En fait il faut qu'à chaque fois qu'un chiffre est rencontré, il faut
incrémenter une autre cellule en rapport avec se chiffre.
Exemple:

1 1 1 1 1 1 1 2 2 2 2 2 3 ....

Résultat : 1 : 7
2 : 5
3 : 1

Il y a donc 7 fois le chiffre 1, 5 fois le chiffre 2 et 1 fois le
chiffre 1.



Merci de votre aide

"isabelle" news:
bonjour Linebaker,

si je comprend bien il y a les valeurs de 1 à 28 dans les cellules A2
à



U2

quel serait le résultat final soufaité ?

isabelle


Bonjour,

Voici une partie de mon code.

À chaque fois qu'une cellule à une valeur, elle doit incrémenter une
autre


cellule. Par la suite je dois effacer cette cellule pour passer à la
suivante. Voici un exemple de données:
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21

Ajout:
Range("a2").Activate
If ActiveCell.Value < 0 Then
GoTo FIN
ElseIf ActiveCell.Value = 1 Then
Range("j2").Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
---> GoTo Range("a2") ---->>> il faut revenir à la cellule a2
ActiveCell.Offset(0, 0).Clear
ActiveCell.Offset(0, 1).Select
GoTo Ajout1
ElseIf ActiveCell.Value = 2 Then
Range("j3").Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
ActiveCell.Offset(0, 0).Clear
ActiveCell.Offset(0, 1).Select
GoTo Ajout1
...
End If

Ajout1:
If ActiveCell.Value < 1 Then
ActiveCell.Offset(1, -7).Select
ElseIf ActiveCell.Value = 1 Then
Range("j2").Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
ActiveCell.Offset(0, 0).Clear
ActiveCell.Offset(0, 1).Select
GoTo Ajout1
...

FIN:
ActiveWorkbook.Save
Close
End Sub

Merci pour votre aide.








isabelle
Le #1272195
;-) tu me rassure également :-)
isabelle


!! là je comprend pas plus,
tu me rassures, ;-))

parce que j'en trave que couic !

--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"isabelle" news:
!! là je comprend pas plus,

est ce c'est données :
1 2 3 4 5 7 8 9 10 11 12 13 14 ...

qui doivent être transformer en celle ci

1 1 1 1 1 1 1 2 2 2 2 2 3 ...

isabelle


Bonjour,

En fait il faut qu'à chaque fois qu'un chiffre est rencontré, il faut
incrémenter une autre cellule en rapport avec se chiffre.
Exemple:

1 1 1 1 1 1 1 2 2 2 2 2 3 ....

Résultat : 1 : 7
2 : 5
3 : 1

Il y a donc 7 fois le chiffre 1, 5 fois le chiffre 2 et 1 fois le
chiffre 1.



Merci de votre aide

"isabelle" news:
bonjour Linebaker,

si je comprend bien il y a les valeurs de 1 à 28 dans les cellules A2
à



U2

quel serait le résultat final soufaité ?

isabelle


Bonjour,

Voici une partie de mon code.

À chaque fois qu'une cellule à une valeur, elle doit incrémenter une
autre


cellule. Par la suite je dois effacer cette cellule pour passer à la
suivante. Voici un exemple de données:
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21

Ajout:
Range("a2").Activate
If ActiveCell.Value < 0 Then
GoTo FIN
ElseIf ActiveCell.Value = 1 Then
Range("j2").Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
---> GoTo Range("a2") ---->>> il faut revenir à la cellule a2
ActiveCell.Offset(0, 0).Clear
ActiveCell.Offset(0, 1).Select
GoTo Ajout1
ElseIf ActiveCell.Value = 2 Then
Range("j3").Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
ActiveCell.Offset(0, 0).Clear
ActiveCell.Offset(0, 1).Select
GoTo Ajout1
...
End If

Ajout1:
If ActiveCell.Value < 1 Then
ActiveCell.Offset(1, -7).Select
ElseIf ActiveCell.Value = 1 Then
Range("j2").Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
ActiveCell.Offset(0, 0).Clear
ActiveCell.Offset(0, 1).Select
GoTo Ajout1
...

FIN:
ActiveWorkbook.Save
Close
End Sub

Merci pour votre aide.










Linebaker
Le #1272177
:))))

Recommençons.

J'ai un fichier contenant un inventaire de différentes choses elles ne sont
pas triées. Donc à chaque fois qu'un item est rencontré, le nombre
comptabilisant la quantité doit augmenter de 1.

Merci

"isabelle" news:
;-) tu me rassure également :-)
isabelle


!! là je comprend pas plus,
tu me rassures, ;-))

parce que j'en trave que couic !

--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"isabelle" news:
!! là je comprend pas plus,

est ce c'est données :
1 2 3 4 5 7 8 9 10 11 12 13 14 ...

qui doivent être transformer en celle ci

1 1 1 1 1 1 1 2 2 2 2 2 3 ...

isabelle


Bonjour,

En fait il faut qu'à chaque fois qu'un chiffre est rencontré, il
faut




incrémenter une autre cellule en rapport avec se chiffre.
Exemple:

1 1 1 1 1 1 1 2 2 2 2 2 3
....





Résultat : 1 : 7
2 : 5
3 : 1

Il y a donc 7 fois le chiffre 1, 5 fois le chiffre 2 et 1 fois le
chiffre 1.



Merci de votre aide

"isabelle" news:
bonjour Linebaker,

si je comprend bien il y a les valeurs de 1 à 28 dans les cellules
A2





à
U2

quel serait le résultat final soufaité ?

isabelle


Bonjour,

Voici une partie de mon code.

À chaque fois qu'une cellule à une valeur, elle doit incrémenter
une






autre
cellule. Par la suite je dois effacer cette cellule pour passer
à la






suivante. Voici un exemple de données:
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21

Ajout:
Range("a2").Activate
If ActiveCell.Value < 0 Then
GoTo FIN
ElseIf ActiveCell.Value = 1 Then
Range("j2").Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
---> GoTo Range("a2") ---->>> il faut revenir à la cellule
a2






ActiveCell.Offset(0, 0).Clear
ActiveCell.Offset(0, 1).Select
GoTo Ajout1
ElseIf ActiveCell.Value = 2 Then
Range("j3").Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
ActiveCell.Offset(0, 0).Clear
ActiveCell.Offset(0, 1).Select
GoTo Ajout1
...
End If

Ajout1:
If ActiveCell.Value < 1 Then
ActiveCell.Offset(1, -7).Select
ElseIf ActiveCell.Value = 1 Then
Range("j2").Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
ActiveCell.Offset(0, 0).Clear
ActiveCell.Offset(0, 1).Select
GoTo Ajout1
...

FIN:
ActiveWorkbook.Save
Close
End Sub

Merci pour votre aide.












FxM
Le #1272170
Bonjour,

Avec 28 valeurs de A2 à U2
=nb.si(A2:U2;1) renvoit 7
=nb.si(A2:U2;2) renvoit 5
=nb.si(A2:U2;3) renvoit 1

@+
FxM



Linebaker wrote:

Bonjour,

En fait il faut qu'à chaque fois qu'un chiffre est rencontré, il faut
incrémenter une autre cellule en rapport avec se chiffre.
Exemple:

1 1 1 1 1 1 1 2 2 2 2 2 3 ....

Résultat : 1 : 7
2 : 5
3 : 1

Il y a donc 7 fois le chiffre 1, 5 fois le chiffre 2 et 1 fois le chiffre 1.

Merci de votre aide

"isabelle" news:

bonjour Linebaker,

si je comprend bien il y a les valeurs de 1 à 28 dans les cellules A2 à
U2

quel serait le résultat final soufaité ?

isabelle


Bonjour,

Voici une partie de mon code.

À chaque fois qu'une cellule à une valeur, elle doit incrémenter une



autre

cellule. Par la suite je dois effacer cette cellule pour passer à la
suivante. Voici un exemple de données:
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21

Ajout:
Range("a2").Activate
If ActiveCell.Value < 0 Then
GoTo FIN
ElseIf ActiveCell.Value = 1 Then
Range("j2").Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
---> GoTo Range("a2") ---->>> il faut revenir à la cellule a2
ActiveCell.Offset(0, 0).Clear
ActiveCell.Offset(0, 1).Select
GoTo Ajout1
ElseIf ActiveCell.Value = 2 Then
Range("j3").Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
ActiveCell.Offset(0, 0).Clear
ActiveCell.Offset(0, 1).Select
GoTo Ajout1
...
End If

Ajout1:
If ActiveCell.Value < 1 Then
ActiveCell.Offset(1, -7).Select
ElseIf ActiveCell.Value = 1 Then
Range("j2").Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
ActiveCell.Offset(0, 0).Clear
ActiveCell.Offset(0, 1).Select
GoTo Ajout1
...

FIN:
ActiveWorkbook.Save
Close
End Sub

Merci pour votre aide.









Publicité
Poster une réponse
Anonyme