Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Comment revenir à la cellule de départ

Comment revenir à la cellule de départ

7 réponses
Avatar
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.
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
isabelle
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.


Avatar
Linebaker
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" a écrit dans le message de
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.




Avatar
isabelle
!! 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" a écrit dans le message de
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.






Avatar
ru-th
!! 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" a écrit dans le message de
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" a écrit dans le message de
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.








Avatar
isabelle
;-) 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" a écrit dans le message de
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" a écrit dans le message de
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.










Avatar
Linebaker
:))))

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" a écrit dans le message de
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" a écrit dans le message de
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" a écrit dans le message de
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.












Avatar
FxM
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" a écrit dans le message de
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.