reperage d'une cellule puis recopie d'une ligne

[philmaure]

Re, bonjour,

encore un pb et après je ne vous embete plus aujourd'hui 🙂

dans ma première feuille j'ai des données en instance.
lorsque le temps de traitment est indiqué je voudrais supprimer la ligne de l'onglet en cours pour la recopier dans l'onglet termine
merci (encore) pour votre aide
Cdlt
philippe

 

[JBARBE]

Re : reperage d'une cellule puis recopie d'une ligne

Bonsoir à tous,

Une proposition !

 

[job75]

Re : reperage d'une cellule puis recopie d'une ligne

Bonsoir,

Combien de fois faudra-t-il dire et redire que les Select sont à bannir en VBA ?

C'est navrant de les voir encore chez ceux qui ont acquis un peu d'expérience.

A+

 

[JBARBE]

Re : reperage d'une cellule puis recopie d'une ligne

Bonsoir job,

Si tu as une autre proposition à cette demande je suis preneur !

Tu montre que tu sais programmer, moi je fait ce que je peux !

Désolé !

Bonne soirée !

 

[job75]

Re : reperage d'une cellule puis recopie d'une ligne

Re,

Une solution sans Select, et aussi sans boucle :

Sub Supprimer()
On Error Resume Next 'si aucune valeur numérique en colonne J
With Feuil1.[J:J].SpecialCells(xlCellTypeConstants, 1).EntireRow
  .Copy Feuil2.Rows(Feuil2.[J65536].End(xlUp).Row + 1)
  .Delete
End With
End Sub

A+

 

[JBARBE]

Re : reperage d'une cellule puis recopie d'une ligne

Job, C'est bien de le faire maintenant à ta façon mais pourquoi ne la tu pas fait avant moi alors qu'il n'y avait aucune proposition !

Je programme suivant mon bouquin pour excel 2000 - 2002 - 2003 !

C'est tout une autre programmation que l'on a avec Excel VBA 2007 !

Moi, je me contente d'aider les personnes dont-on ne sais pas occupé depuis longtemps !

Toi qui a 71 ans et moi 62 tu devrais bien le comprendre !


Bonne soirée !

 

[JBARBE]

Re : reperage d'une cellule puis recopie d'une ligne

Bonne soirée A TOUS !

 

[philmaure]

Re : reperage d'une cellule puis recopie d'une ligne

bonjour et un grand merci à vous deux.
Cela fonctionne parfaitement
bonne journée
Cdlt
Philippe