je suis debutant mais j'ai réussi à recopier ce code depuis ce forum il y a
un certain temps
tout fonctionne très bien sauf que de temps en temps il génère une ereur
1004
le probleme se résolve en changeant le nombre de lignes ici 80 par un autre
nombre par exemple 65
de plus je souhaiterais en vérifier 150 car c'est un tableau ou le nombre
de lignes varie (je gère des commandes)
ce tableau comprend 20 colonnes ,le nombre de ligne varie et dans la 16
colonnes est insere automatiquement une lettre (un N)
et lorsque on suprime cette lettre et qu on lance une macro , qui commence
par la macro ci dessous(selection des lignes sans N) la ligne est suprimer
de la feuille 1 et elle est transferee sur la feuille 2
merci
Sub JeSelectionne()
i = 1
NombreLignes = 80
While i < NombreLignes + 1
If Cells(i, 16) = MonCritere Then
MesLignes = MesLignes & i & ":" & i & ","
End If
i = i + 1
Wend
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
papou
Bonjour Pour déterminer automatiquement le nombre de lignes, tu modifies la ligne : NombreLignes = 80 Par : NombreLignes = Sheets("Feuil1").Range("A65536").End(xlup).Row
Cordialement Pascal
"JJ WEILAND" Server> a écrit dans le message de news:%23O6R$
bonjour a tous et bonne annee 2005
je suis debutant mais j'ai réussi à recopier ce code depuis ce forum il y a
un certain temps tout fonctionne très bien sauf que de temps en temps il génère une ereur 1004 le probleme se résolve en changeant le nombre de lignes ici 80 par un autre
nombre par exemple 65 de plus je souhaiterais en vérifier 150 car c'est un tableau ou le nombre de lignes varie (je gère des commandes) ce tableau comprend 20 colonnes ,le nombre de ligne varie et dans la 16 colonnes est insere automatiquement une lettre (un N) et lorsque on suprime cette lettre et qu on lance une macro , qui commence par la macro ci dessous(selection des lignes sans N) la ligne est suprimer
de la feuille 1 et elle est transferee sur la feuille 2 merci
Sub JeSelectionne() i = 1 NombreLignes = 80 While i < NombreLignes + 1 If Cells(i, 16) = MonCritere Then MesLignes = MesLignes & i & ":" & i & "," End If i = i + 1 Wend
MesLignes = Left(MesLignes, Len(MesLignes) - 1)
Sheets("Feuil1").Range(MesLignes).Select End Sub
Bonjour
Pour déterminer automatiquement le nombre de lignes, tu modifies la ligne :
NombreLignes = 80
Par :
NombreLignes = Sheets("Feuil1").Range("A65536").End(xlup).Row
Cordialement
Pascal
"JJ WEILAND" <Regis@FAX Server> a écrit dans le message de
news:%23O6R$Fj8EHA.1204@TK2MSFTNGP10.phx.gbl...
bonjour a tous et bonne annee 2005
je suis debutant mais j'ai réussi à recopier ce code depuis ce forum il y
a
un certain temps
tout fonctionne très bien sauf que de temps en temps il génère une ereur
1004
le probleme se résolve en changeant le nombre de lignes ici 80 par un
autre
nombre par exemple 65
de plus je souhaiterais en vérifier 150 car c'est un tableau ou le nombre
de lignes varie (je gère des commandes)
ce tableau comprend 20 colonnes ,le nombre de ligne varie et dans la 16
colonnes est insere automatiquement une lettre (un N)
et lorsque on suprime cette lettre et qu on lance une macro , qui commence
par la macro ci dessous(selection des lignes sans N) la ligne est
suprimer
de la feuille 1 et elle est transferee sur la feuille 2
merci
Sub JeSelectionne()
i = 1
NombreLignes = 80
While i < NombreLignes + 1
If Cells(i, 16) = MonCritere Then
MesLignes = MesLignes & i & ":" & i & ","
End If
i = i + 1
Wend
Bonjour Pour déterminer automatiquement le nombre de lignes, tu modifies la ligne : NombreLignes = 80 Par : NombreLignes = Sheets("Feuil1").Range("A65536").End(xlup).Row
Cordialement Pascal
"JJ WEILAND" Server> a écrit dans le message de news:%23O6R$
bonjour a tous et bonne annee 2005
je suis debutant mais j'ai réussi à recopier ce code depuis ce forum il y a
un certain temps tout fonctionne très bien sauf que de temps en temps il génère une ereur 1004 le probleme se résolve en changeant le nombre de lignes ici 80 par un autre
nombre par exemple 65 de plus je souhaiterais en vérifier 150 car c'est un tableau ou le nombre de lignes varie (je gère des commandes) ce tableau comprend 20 colonnes ,le nombre de ligne varie et dans la 16 colonnes est insere automatiquement une lettre (un N) et lorsque on suprime cette lettre et qu on lance une macro , qui commence par la macro ci dessous(selection des lignes sans N) la ligne est suprimer
de la feuille 1 et elle est transferee sur la feuille 2 merci
Sub JeSelectionne() i = 1 NombreLignes = 80 While i < NombreLignes + 1 If Cells(i, 16) = MonCritere Then MesLignes = MesLignes & i & ":" & i & "," End If i = i + 1 Wend
