Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Changer de colonne après cellule déterminée

Changer de colonne après cellule déterminée

6 réponses
Avatar
Tatane
Bonjour,

J'insère des valeurs les unes en dessous des autres (A2 à A15) grâce au VBA.

Je dois passer à B2 au lieu de A16 et continuer à insérer de B2 à B15, C2 à
C15 et D2 à D15 toujours avec la même boite de dialogue si possible.

Ai-je été assez clair? Si non, voici mon fichier http://cjoint.com/?jnrd0B2JlP

Par avance, merci.
NOTA, Attention à l'impression directe !
--
VBA Excel, c''est bon mais c''est chaud !
Signaler un problème avec ce contenu

6 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
Daniel
Bonjour.
Ajoute :

If ActiveCell.Row > 15 Then
Cells(2, ActiveCell.Column + 1).Select
End If

après :

ActiveCell.Offset(1, 0).Activate

Cordialement.
Daniel
"Tatane" a écrit dans le message de news:

Bonjour,

J'insère des valeurs les unes en dessous des autres (A2 à A15) grâce au
VBA.

Je dois passer à B2 au lieu de A16 et continuer à insérer de B2 à B15, C2
à
C15 et D2 à D15 toujours avec la même boite de dialogue si possible.

Ai-je été assez clair? Si non, voici mon fichier
http://cjoint.com/?jnrd0B2JlP

Par avance, merci.
NOTA, Attention à l'impression directe !
--
VBA Excel, c''est bon mais c''est chaud !


Avatar
Tatane
Merciiiiiiiiiiiiiiii Daniel,

J'ai changé 2 valeurs et c'est pil-poil comme il faut.

If ActiveCell.Row > 14 Then
Cells(1, ActiveCell.Column + 1).Select
End If

--
VBA Excel, c''est bon mais c''est chaud !



Bonjour.
Ajoute :

If ActiveCell.Row > 15 Then
Cells(2, ActiveCell.Column + 1).Select
End If

après :

ActiveCell.Offset(1, 0).Activate

Cordialement.
Daniel
"Tatane" a écrit dans le message de news:

Bonjour,

J'insère des valeurs les unes en dessous des autres (A2 à A15) grâce au
VBA.

Je dois passer à B2 au lieu de A16 et continuer à insérer de B2 à B15, C2
à
C15 et D2 à D15 toujours avec la même boite de dialogue si possible.

Ai-je été assez clair? Si non, voici mon fichier
http://cjoint.com/?jnrd0B2JlP

Par avance, merci.
NOTA, Attention à l'impression directe !
--
VBA Excel, c''est bon mais c''est chaud !







Avatar
Tatane
Désolé d'y revenirmais,
après avoir fermé mon fichier et réouvert, mon souci est que cela bloque à
la cellule B2 et la sélection ne veut plus descendre.
Voici ce que j'ai écrit:

Private Sub Ajouter_XN_Click()
'Active la feuille
Worksheets("Etiquettes").Activate
'Trouve la dernière cellule active de la colonne A
Range("A65536").End(xlUp)(1).Select
'Déplace la sélection à la colonne B
If ActiveCell.Row > 3 Then
Cells(1, ActiveCell.Column + 1).Select
End If
' Déplace la sélection en dessous de la cellule active
ActiveCell.Offset(1, 0).Activate
'Place le texte dans la cellule active
ActiveCell.Value = REPERE_XN.Value
'Vide la TextBox
REPERE_XN.Value = ""
'Active la TextBox
REPERE_XN.SetFocus
End Sub

Désolé pour les blablas entre les lignes, mais je peux pas m'en passer.
--
VBA Excel, c''est bon mais c''est chaud !



Merciiiiiiiiiiiiiiii Daniel,

J'ai changé 2 valeurs et c'est pil-poil comme il faut.

If ActiveCell.Row > 14 Then
Cells(1, ActiveCell.Column + 1).Select
End If

--
VBA Excel, c''est bon mais c''est chaud !



Bonjour.
Ajoute :

If ActiveCell.Row > 15 Then
Cells(2, ActiveCell.Column + 1).Select
End If

après :

ActiveCell.Offset(1, 0).Activate

Cordialement.
Daniel
"Tatane" a écrit dans le message de news:

Bonjour,

J'insère des valeurs les unes en dessous des autres (A2 à A15) grâce au
VBA.

Je dois passer à B2 au lieu de A16 et continuer à insérer de B2 à B15, C2
à
C15 et D2 à D15 toujours avec la même boite de dialogue si possible.

Ai-je été assez clair? Si non, voici mon fichier
http://cjoint.com/?jnrd0B2JlP

Par avance, merci.
NOTA, Attention à l'impression directe !
--
VBA Excel, c''est bon mais c''est chaud !









Avatar
FxM
Bonjour

'Déplace la sélection à la colonne B
If ActiveCell.Row > 3 Then
Cells(1, ActiveCell.Column + 1).Select
End If


Pas tout à fait ! Tu déplaces la cellule sélectionnée en :
ligne -> 1
colonne -> colonne +1
Comme tu étais en Ax, tu te retrouves toujours en B1.

' Déplace la sélection en dessous de la cellule active
ActiveCell.Offset(1, 0).Activate
... et donc en B2


Si tu veux aller plus bas, ne pas aller en B1 mais en Bx, soit :
'Déplace la sélection à la colonne B
If ActiveCell.Row > 3 Then
activecell.offset(0,1).select
End If

@+
FxM







Désolé d'y revenirmais,
après avoir fermé mon fichier et réouvert, mon souci est que cela bloque à
la cellule B2 et la sélection ne veut plus descendre.
Voici ce que j'ai écrit:

Private Sub Ajouter_XN_Click()
'Active la feuille
Worksheets("Etiquettes").Activate
'Trouve la dernière cellule active de la colonne A
Range("A65536").End(xlUp)(1).Select
'Déplace la sélection à la colonne B
If ActiveCell.Row > 3 Then
Cells(1, ActiveCell.Column + 1).Select
End If
' Déplace la sélection en dessous de la cellule active
ActiveCell.Offset(1, 0).Activate
'Place le texte dans la cellule active
ActiveCell.Value = REPERE_XN.Value
'Vide la TextBox
REPERE_XN.Value = ""
'Active la TextBox
REPERE_XN.SetFocus
End Sub

Désolé pour les blablas entre les lignes, mais je peux pas m'en passer.


Avatar
Tatane
Non, ca ne fonctionne pas non plus.
Mon fichier est joint dans ma 1ère question, regarde ce que cela fait.
Merci.
--
VBA Excel, c''est bon mais c''est chaud !



Merciiiiiiiiiiiiiiii Daniel,

J'ai changé 2 valeurs et c'est pil-poil comme il faut.

If ActiveCell.Row > 14 Then
Cells(1, ActiveCell.Column + 1).Select
End If

--
VBA Excel, c''est bon mais c''est chaud !



Bonjour.
Ajoute :

If ActiveCell.Row > 15 Then
Cells(2, ActiveCell.Column + 1).Select
End If

après :

ActiveCell.Offset(1, 0).Activate

Cordialement.
Daniel
"Tatane" a écrit dans le message de news:

Bonjour,

J'insère des valeurs les unes en dessous des autres (A2 à A15) grâce au
VBA.

Je dois passer à B2 au lieu de A16 et continuer à insérer de B2 à B15, C2
à
C15 et D2 à D15 toujours avec la même boite de dialogue si possible.

Ai-je été assez clair? Si non, voici mon fichier
http://cjoint.com/?jnrd0B2JlP

Par avance, merci.
NOTA, Attention à l'impression directe !
--
VBA Excel, c''est bon mais c''est chaud !









Avatar
Tatane
Désolé le fichier n'était pas à jour, le voici
http://cjoint.com/?jopbbKU80q
--
VBA Excel, c''est bon mais c''est chaud !



Non, ca ne fonctionne pas non plus.
Mon fichier est joint dans ma 1ère question, regarde ce que cela fait.
Merci.
--
VBA Excel, c''est bon mais c''est chaud !



Merciiiiiiiiiiiiiiii Daniel,

J'ai changé 2 valeurs et c'est pil-poil comme il faut.

If ActiveCell.Row > 14 Then
Cells(1, ActiveCell.Column + 1).Select
End If

--
VBA Excel, c''est bon mais c''est chaud !



Bonjour.
Ajoute :

If ActiveCell.Row > 15 Then
Cells(2, ActiveCell.Column + 1).Select
End If

après :

ActiveCell.Offset(1, 0).Activate

Cordialement.
Daniel
"Tatane" a écrit dans le message de news:

Bonjour,

J'insère des valeurs les unes en dessous des autres (A2 à A15) grâce au
VBA.

Je dois passer à B2 au lieu de A16 et continuer à insérer de B2 à B15, C2
à
C15 et D2 à D15 toujours avec la même boite de dialogue si possible.

Ai-je été assez clair? Si non, voici mon fichier
http://cjoint.com/?jnrd0B2JlP

Par avance, merci.
NOTA, Attention à l'impression directe !
--
VBA Excel, c''est bon mais c''est chaud !