Je voudrais copier le contenu d'une cellule (L2) dans une autre D13. Jusque
là rien de compliqué.
Ensuite, je voudrais copier L3 dans D27 puis L4 dans A41 et ainsi de suite.
Y-a-t-il un moyen de le faire automatiquement car j'en ai plus d'une
centaine à faire et les risques d'erreurs sont grands.
Je ne connais pas le langage des macros mais je comprend bien le principe.
En fait, mon but est de donner un numéro de tickets (comprenant
lettre+numéro) à chaque ticket suivant une liste encodée.
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
Ardus Petus
Tu dis "et ainsi de suite", mais je n'arrive pas à suivre la progression L2->D13, L3->D27, L4->A41
Où est-ce que tu veux copier L5, L6 et les suivants?
Cordialement, -- AP
"LalyOS" a écrit dans le message de news:
Bonjour,
Je voudrais copier le contenu d'une cellule (L2) dans une autre D13. Jusque là rien de compliqué. Ensuite, je voudrais copier L3 dans D27 puis L4 dans A41 et ainsi de suite. Y-a-t-il un moyen de le faire automatiquement car j'en ai plus d'une centaine à faire et les risques d'erreurs sont grands. Je ne connais pas le langage des macros mais je comprend bien le principe. En fait, mon but est de donner un numéro de tickets (comprenant lettre+numéro) à chaque ticket suivant une liste encodée.
Merci à ceux qui pourront m'aider.
Tu dis "et ainsi de suite", mais je n'arrive pas à suivre la progression
L2->D13, L3->D27, L4->A41
Où est-ce que tu veux copier L5, L6 et les suivants?
Cordialement,
--
AP
"LalyOS" <LalyOS@discussions.microsoft.com> a écrit dans le message de news:
EEDE51E0-B561-4CAB-B653-8A60C50C2C7F@microsoft.com...
Bonjour,
Je voudrais copier le contenu d'une cellule (L2) dans une autre D13.
Jusque
là rien de compliqué.
Ensuite, je voudrais copier L3 dans D27 puis L4 dans A41 et ainsi de
suite.
Y-a-t-il un moyen de le faire automatiquement car j'en ai plus d'une
centaine à faire et les risques d'erreurs sont grands.
Je ne connais pas le langage des macros mais je comprend bien le principe.
En fait, mon but est de donner un numéro de tickets (comprenant
lettre+numéro) à chaque ticket suivant une liste encodée.
Tu dis "et ainsi de suite", mais je n'arrive pas à suivre la progression L2->D13, L3->D27, L4->A41
Où est-ce que tu veux copier L5, L6 et les suivants?
Cordialement, -- AP
"LalyOS" a écrit dans le message de news:
Bonjour,
Je voudrais copier le contenu d'une cellule (L2) dans une autre D13. Jusque là rien de compliqué. Ensuite, je voudrais copier L3 dans D27 puis L4 dans A41 et ainsi de suite. Y-a-t-il un moyen de le faire automatiquement car j'en ai plus d'une centaine à faire et les risques d'erreurs sont grands. Je ne connais pas le langage des macros mais je comprend bien le principe. En fait, mon but est de donner un numéro de tickets (comprenant lettre+numéro) à chaque ticket suivant une liste encodée.
Merci à ceux qui pourront m'aider.
Excel...lent
Salut LalyOs,
Alors si j'ai bien compris tu sa un liste de cellule se suvant dans la colonne L et tu veux les récopier dans les cellules de la colonne D toutes les 13 cellules.
Alors si c'est ça copie ce code dans un module et execute le.
Sub zaza() n = 13 For i = 2 To 65536 If n > 65536 Then Exit Sub Range("D" & n) = Range("L" & i) n = n + 14 Next i End Sub
Amicordialment.
Marc
Salut LalyOs,
Alors si j'ai bien compris tu sa un liste de cellule se suvant dans la
colonne L et tu veux les récopier dans les cellules de la colonne D toutes
les 13 cellules.
Alors si c'est ça copie ce code dans un module et execute le.
Sub zaza()
n = 13
For i = 2 To 65536
If n > 65536 Then Exit Sub
Range("D" & n) = Range("L" & i)
n = n + 14
Next i
End Sub
Alors si j'ai bien compris tu sa un liste de cellule se suvant dans la colonne L et tu veux les récopier dans les cellules de la colonne D toutes les 13 cellules.
Alors si c'est ça copie ce code dans un module et execute le.
Sub zaza() n = 13 For i = 2 To 65536 If n > 65536 Then Exit Sub Range("D" & n) = Range("L" & i) n = n + 14 Next i End Sub
Amicordialment.
Marc
LalyOS
Merci beaucoup.
Y-avait juste un petit problème c'est que la séquence était 13 - 14 - 14 (3 tickets par page) Mais j'ai rajouté une ligne pour que ce soit 14 14 14 et j'ai modifié n = 14 et ça marche super bien. Je savais que c'était possible. Je crois qu'une formation sur les macros et visual basic s'impose.
A +
Salut LalyOs,
Alors si j'ai bien compris tu sa un liste de cellule se suvant dans la colonne L et tu veux les récopier dans les cellules de la colonne D toutes les 13 cellules.
Alors si c'est ça copie ce code dans un module et execute le.
Sub zaza() n = 13 For i = 2 To 65536 If n > 65536 Then Exit Sub Range("D" & n) = Range("L" & i) n = n + 14 Next i End Sub
Amicordialment.
Marc
Merci beaucoup.
Y-avait juste un petit problème c'est que la séquence était 13 - 14 - 14 (3
tickets par page)
Mais j'ai rajouté une ligne pour que ce soit 14 14 14 et j'ai modifié n = 14
et ça marche super bien.
Je savais que c'était possible.
Je crois qu'une formation sur les macros et visual basic s'impose.
A +
Salut LalyOs,
Alors si j'ai bien compris tu sa un liste de cellule se suvant dans la
colonne L et tu veux les récopier dans les cellules de la colonne D toutes
les 13 cellules.
Alors si c'est ça copie ce code dans un module et execute le.
Sub zaza()
n = 13
For i = 2 To 65536
If n > 65536 Then Exit Sub
Range("D" & n) = Range("L" & i)
n = n + 14
Next i
End Sub
Y-avait juste un petit problème c'est que la séquence était 13 - 14 - 14 (3 tickets par page) Mais j'ai rajouté une ligne pour que ce soit 14 14 14 et j'ai modifié n = 14 et ça marche super bien. Je savais que c'était possible. Je crois qu'une formation sur les macros et visual basic s'impose.
A +
Salut LalyOs,
Alors si j'ai bien compris tu sa un liste de cellule se suvant dans la colonne L et tu veux les récopier dans les cellules de la colonne D toutes les 13 cellules.
Alors si c'est ça copie ce code dans un module et execute le.
Sub zaza() n = 13 For i = 2 To 65536 If n > 65536 Then Exit Sub Range("D" & n) = Range("L" & i) n = n + 14 Next i End Sub
