voici le code que j'ai créé et qui ne fonctionne pas comme je veux (jai
toujours des doublons!) :à la fin j'indique la nature des variables
Voilà ce que j'aimerais faire :si la cellule est identique à la précédente,
on prend les cellules de Cells(j - 1, 12) à Cells(j - 1, Janv + Month(Date) -
3) que l'on transpose dans Range(Cells(j, 12), Cells(j, Janv + Month(Date) -
3) (en fait, descendre d'une ligne les cellules sélectionnées) ensuite on
supprime la ligne précédente.
Cells(2, 1).Activate
j = 1
Do While Not IsEmpty(ActiveCell.Value)
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
LSteph
Bonjour Ricou,
A priori, si j=1 cells(j-1,12) pose un pb =>cells(0,12)
Si tu boucles avec des suppressions il vaut mieux procèder en remontant. Mais , pour poursuivre explique le contexte et ce que tu veux concrètement faire plutôt que ce que tu essaye de vouloir faire faire pour arriver à ce que l'on imagine pas forcément.
A+
lSteph
"Ricou" a écrit dans le message de news:
Bonjour à tous,
voici le code que j'ai créé et qui ne fonctionne pas comme je veux (jai toujours des doublons!) :à la fin j'indique la nature des variables Voilà ce que j'aimerais faire :si la cellule est identique à la précédente, on prend les cellules de Cells(j - 1, 12) à Cells(j - 1, Janv + Month(Date) - 3) que l'on transpose dans Range(Cells(j, 12), Cells(j, Janv + Month(Date) - 3) (en fait, descendre d'une ligne les cellules sélectionnées) ensuite on supprime la ligne précédente.
Cells(2, 1).Activate j = 1 Do While Not IsEmpty(ActiveCell.Value)
j sert à connaître le numéro de la ligne de l'ActiveCell et Janv est le numéro de la colonne L.
Merci d'avance à tous!
Bonjour Ricou,
A priori,
si j=1
cells(j-1,12)
pose un pb =>cells(0,12)
Si tu boucles avec des suppressions il vaut mieux procèder en remontant.
Mais , pour poursuivre explique le contexte et ce que tu veux concrètement
faire plutôt
que ce que tu essaye de vouloir faire faire pour arriver à ce que l'on
imagine pas forcément.
A+
lSteph
"Ricou" <Ricou@discussions.microsoft.com> a écrit dans le message de news:
AC14D394-FF1F-48E4-8971-302313DF2E85@microsoft.com...
Bonjour à tous,
voici le code que j'ai créé et qui ne fonctionne pas comme je veux (jai
toujours des doublons!) :à la fin j'indique la nature des variables
Voilà ce que j'aimerais faire :si la cellule est identique à la
précédente,
on prend les cellules de Cells(j - 1, 12) à Cells(j - 1, Janv +
Month(Date) -
3) que l'on transpose dans Range(Cells(j, 12), Cells(j, Janv +
Month(Date) -
3) (en fait, descendre d'une ligne les cellules sélectionnées) ensuite on
supprime la ligne précédente.
Cells(2, 1).Activate
j = 1
Do While Not IsEmpty(ActiveCell.Value)
A priori, si j=1 cells(j-1,12) pose un pb =>cells(0,12)
Si tu boucles avec des suppressions il vaut mieux procèder en remontant. Mais , pour poursuivre explique le contexte et ce que tu veux concrètement faire plutôt que ce que tu essaye de vouloir faire faire pour arriver à ce que l'on imagine pas forcément.
A+
lSteph
"Ricou" a écrit dans le message de news:
Bonjour à tous,
voici le code que j'ai créé et qui ne fonctionne pas comme je veux (jai toujours des doublons!) :à la fin j'indique la nature des variables Voilà ce que j'aimerais faire :si la cellule est identique à la précédente, on prend les cellules de Cells(j - 1, 12) à Cells(j - 1, Janv + Month(Date) - 3) que l'on transpose dans Range(Cells(j, 12), Cells(j, Janv + Month(Date) - 3) (en fait, descendre d'une ligne les cellules sélectionnées) ensuite on supprime la ligne précédente.
Cells(2, 1).Activate j = 1 Do While Not IsEmpty(ActiveCell.Value)
j sert à connaître le numéro de la ligne de l'ActiveCell et Janv est le numéro de la colonne L.
Merci d'avance à tous!
Ricou
Merci, le j=2 a effectivement en partie résolu le prroblème mais il ne faut pas de "ActiveCell.Offset(1, 0).Select" avant le "Else" car le fait de supprimer une ligne fait que l'on descend d'une ligne.
Merci
Bonjour Ricou,
A priori, si j=1 cells(j-1,12) pose un pb =>cells(0,12)
Si tu boucles avec des suppressions il vaut mieux procèder en remontant. Mais , pour poursuivre explique le contexte et ce que tu veux concrètement faire plutôt que ce que tu essaye de vouloir faire faire pour arriver à ce que l'on imagine pas forcément.
A+
lSteph
"Ricou" a écrit dans le message de news:
Bonjour à tous,
voici le code que j'ai créé et qui ne fonctionne pas comme je veux (jai toujours des doublons!) :à la fin j'indique la nature des variables Voilà ce que j'aimerais faire :si la cellule est identique à la précédente, on prend les cellules de Cells(j - 1, 12) à Cells(j - 1, Janv + Month(Date) - 3) que l'on transpose dans Range(Cells(j, 12), Cells(j, Janv + Month(Date) - 3) (en fait, descendre d'une ligne les cellules sélectionnées) ensuite on supprime la ligne précédente.
Cells(2, 1).Activate j = 1 Do While Not IsEmpty(ActiveCell.Value)
j sert à connaître le numéro de la ligne de l'ActiveCell et Janv est le numéro de la colonne L.
Merci d'avance à tous!
Merci,
le j=2 a effectivement en partie résolu le prroblème
mais il ne faut pas de "ActiveCell.Offset(1, 0).Select" avant le "Else" car
le fait de supprimer une ligne fait que l'on descend d'une ligne.
Merci
Bonjour Ricou,
A priori,
si j=1
cells(j-1,12)
pose un pb =>cells(0,12)
Si tu boucles avec des suppressions il vaut mieux procèder en remontant.
Mais , pour poursuivre explique le contexte et ce que tu veux concrètement
faire plutôt
que ce que tu essaye de vouloir faire faire pour arriver à ce que l'on
imagine pas forcément.
A+
lSteph
"Ricou" <Ricou@discussions.microsoft.com> a écrit dans le message de news:
AC14D394-FF1F-48E4-8971-302313DF2E85@microsoft.com...
Bonjour à tous,
voici le code que j'ai créé et qui ne fonctionne pas comme je veux (jai
toujours des doublons!) :à la fin j'indique la nature des variables
Voilà ce que j'aimerais faire :si la cellule est identique à la
précédente,
on prend les cellules de Cells(j - 1, 12) à Cells(j - 1, Janv +
Month(Date) -
3) que l'on transpose dans Range(Cells(j, 12), Cells(j, Janv +
Month(Date) -
3) (en fait, descendre d'une ligne les cellules sélectionnées) ensuite on
supprime la ligne précédente.
Cells(2, 1).Activate
j = 1
Do While Not IsEmpty(ActiveCell.Value)
Merci, le j=2 a effectivement en partie résolu le prroblème mais il ne faut pas de "ActiveCell.Offset(1, 0).Select" avant le "Else" car le fait de supprimer une ligne fait que l'on descend d'une ligne.
Merci
Bonjour Ricou,
A priori, si j=1 cells(j-1,12) pose un pb =>cells(0,12)
Si tu boucles avec des suppressions il vaut mieux procèder en remontant. Mais , pour poursuivre explique le contexte et ce que tu veux concrètement faire plutôt que ce que tu essaye de vouloir faire faire pour arriver à ce que l'on imagine pas forcément.
A+
lSteph
"Ricou" a écrit dans le message de news:
Bonjour à tous,
voici le code que j'ai créé et qui ne fonctionne pas comme je veux (jai toujours des doublons!) :à la fin j'indique la nature des variables Voilà ce que j'aimerais faire :si la cellule est identique à la précédente, on prend les cellules de Cells(j - 1, 12) à Cells(j - 1, Janv + Month(Date) - 3) que l'on transpose dans Range(Cells(j, 12), Cells(j, Janv + Month(Date) - 3) (en fait, descendre d'une ligne les cellules sélectionnées) ensuite on supprime la ligne précédente.
Cells(2, 1).Activate j = 1 Do While Not IsEmpty(ActiveCell.Value)
