Couper-coller avec condition

[cotcot]

Bonjour à tout le forum !

Après de nombreuse recherche et tests infructueux, je m'en remet à votre savoir pour régler ce tout petit problème qui vous paraitra bien bête !

En effet, je souhaite simplement faire un couper-coller de la ligne qui comportera "Ok" en colonne "F" => et de coller cette ligne dans la feuille suivante (pour créer un archivage que je réaliserais dans un autre tableau).

Merci encore pour votre aide, je vous laisse un petit tableau avec un début de code que j'ai essayé de faire avec des codes de différent forum (sans succès comme vous l'avez compris ^^).

Bonne fin de journée à tout le monde !

 

[Softmama]

Re : Couper-coller avec condition

bonjour,

j'ai pas tout compris,
vois si ceci améliore le problème :

  Sub coupercoller()
  
  Dim Lig     As Long
  Dim NbrLig  As Long
  Dim NumLig  As Long
  
  Sheets("Feuil1").Activate ' feuille de destination
  
  NumLig = 4         'alors là ca doit etre le N° de la 1er ligne de données en comptant la ligne 1 = 0 .... ? '
  NbrLig = Range("A65536").End(xlUp).Row
   
  With Sheets("Feuil1")     ' feuille source'
  For Lig = 4 To NbrLig             'n° de la 1ere ligne de données'
    If .Cells(Lig, 6).Value = "Ok" Then
      .Cells(Lig, 1).EntireRow.Cut Sheets("Feuil2").Cells(NumLig, 1)  'Shift:=xlDown
      NumLig = NumLig + 1
    End If
  Next
  End With
End Sub

 

[cotcot]

Re : Couper-coller avec condition

Et bien c'est à peut près ça! En fait je veux juste que lorsque dans une ligne il apparait "Ok" en colonne, et bien que la ligne soit coupée et collée dans la "Feuil2" ! La, ça la fait pour une ligne mais après rien ne se produit.

 

[Softmama]

Re : Couper-coller avec condition

Re,

Toujours pas bien convaincu...
Ca s'arrêtait pque le 2nd OK n'était pas comme le 1er (Ok c'est pas OK !)
Vois si le fichier joint fais ce que tu veux. (Il suffit de rajouter un OK ou Ok ou oK ou ok dans la colonne F pour que se déclenche la macro).

 

[cotcot]

Re : Couper-coller avec condition

Mea culpa! J'étais persuadé d'avoir mit les bons "OK"! Je test ça de suite et te fait un retour

Merci pour ton intérêt !

 

[cotcot]

Re : Couper-coller avec condition

Alors j'ai essayé de copier votre code sur un autre exemple (que je veux mettre en place dans mon entreprise) mais cela ne fonctionne pas J'ai eu beau faire les modifs sur les noms d'onglet et sur les numéros de colonne rien à faire ...

Je vous transmet l'autre exemple (sans les petites infos conf' ^^).

Merci encore !

 

[Yaloo]

Re : Couper-coller avec condition

Bonsoir cotcot, Softmama, le forum,

Il faut mettre :

   If UCase(.Cells(Lig, 4).Value) = "OK" Then

Ca doit fonctionner

A+

 

[Yaloo]

Re : Couper-coller avec condition

Re,

J'avais pas vu dans Private Sub Worksheet_Change(ByVal T As Range)

Il faut modifier aussi ta colonne :

  If T.Column = 4 And UCase(T) = "OK" Then coupercoller

Yaloo

 

[cotcot]

Re : Couper-coller avec condition

Et bien je vous remercie tous les deux pour votre aide! Cela fonctionne à priori sans aucun problème

Merci encore pour votre attention et votre travail !!!