VBA Recherche V nombre et copie de la ligne
Résolu/Fermé
A voir également:
- VBA Recherche V nombre et copie de la ligne
- Aller à la ligne excel - Guide
- Copie cachée - Guide
- Partage de photos en ligne - Guide
- Site de vente en ligne particulier - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
9 réponses
Bonjour,
Oui c’est bien, mais sans le lien fourni par ‘cjoint.com’ je ne peux rien faire !
Est-ce que ceci est y compris Filtre élaboré en VBA ?
Oui c’est bien, mais sans le lien fourni par ‘cjoint.com’ je ne peux rien faire !
Est-ce que ceci est y compris Filtre élaboré en VBA ?
Bonjour,
J’ai cru comprendre que vous avez mis une partie du fichier sur https://www.cjoint.com/ et dans se cas il faut avoir le lien qui est fourni lors du dépôt du fichier !
Postez le lien ....
J’ai cru comprendre que vous avez mis une partie du fichier sur https://www.cjoint.com/ et dans se cas il faut avoir le lien qui est fourni lors du dépôt du fichier !
Postez le lien ....
ma maccro est la suivante mais elle plante....
:(
Sub Test_copie_valeures()
' COPIE DES LIGNES DESIREES DANS LES FEUILLES DE CALCUL DEDIEES
Dim Rw As Range
Dim Ligne As Long
' Sélectionne l'ensemble des données (utile pour qu'Excel ne "réfléchisse" pas sur les 65000 lignes)
Windows("XT.xls").Activate
ActiveCell.SpecialCells(xlLastCell).Select
Range(Selection, Cells(1)).Select
' Boucle qui va passer sur chaque ligne de la sélection afin de déterminer si des lignes contiennent le flag voulu
' sélection puis copie dans un autre tableur(copie de XT vers XR) en conservant la même forme des données
(Ca devient très bancale a partie de là je crois....la colonne que je cherche a trier est la colonne F soit la 6e dans XT je cherche a copier toutes les lignes de XT feuilles de Janvier dans XR)
For Each Rw In Selection.Rows
Ligne = Rw.Row
If Rw.Cells(Ligne, 6).Value > "5" Then
plantage en dessous..........................................................
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Windows("XR.xls").Activate
Sheet
ActiveSheet.Paste
Rw.Copy Worksheets("Janvier").Cells(Ligne, 1).EntireRow
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End If
Next Rw
' Pop-up d'avertissement de fin de macro.
MsgBox "Bla bla bla.", vbOKOnly, "Macro terminée"
End Sub
bon voilà le topo intégrale peux tu m'aider ? Merci !
:(
Sub Test_copie_valeures()
' COPIE DES LIGNES DESIREES DANS LES FEUILLES DE CALCUL DEDIEES
Dim Rw As Range
Dim Ligne As Long
' Sélectionne l'ensemble des données (utile pour qu'Excel ne "réfléchisse" pas sur les 65000 lignes)
Windows("XT.xls").Activate
ActiveCell.SpecialCells(xlLastCell).Select
Range(Selection, Cells(1)).Select
' Boucle qui va passer sur chaque ligne de la sélection afin de déterminer si des lignes contiennent le flag voulu
' sélection puis copie dans un autre tableur(copie de XT vers XR) en conservant la même forme des données
(Ca devient très bancale a partie de là je crois....la colonne que je cherche a trier est la colonne F soit la 6e dans XT je cherche a copier toutes les lignes de XT feuilles de Janvier dans XR)
For Each Rw In Selection.Rows
Ligne = Rw.Row
If Rw.Cells(Ligne, 6).Value > "5" Then
plantage en dessous..........................................................
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Windows("XR.xls").Activate
Sheet
ActiveSheet.Paste
Rw.Copy Worksheets("Janvier").Cells(Ligne, 1).EntireRow
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End If
Next Rw
' Pop-up d'avertissement de fin de macro.
MsgBox "Bla bla bla.", vbOKOnly, "Macro terminée"
End Sub
bon voilà le topo intégrale peux tu m'aider ? Merci !
https://www.cjoint.com/?jqrLS1JUya
je pense que ca doit etre ca... je suis novice sur le fionctionnement des forums...aussi... :)
je pense que ca doit etre ca... je suis novice sur le fionctionnement des forums...aussi... :)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour,
Voici ma proposition : https://www.cjoint.com/?jrjbvZVPjC
Enregistrer le fichier ZIP (2 classeurs) sur le bureau, les extraire et ensuite ouvrir uniquement le : [Juju_ccm_base.xls]. Feuilles [Janvier] lancer la procédure par clic sur le rectangle rose et suivre les instructions ….
Note : vous devrai ouvrir le fichier [Juju_ccm_copy.xls].
Par la suite il faut simplement copier la procédure [Sub FiltrerCopierVersClasseurCopy()] et la coller dans un module de votre classeur de travail. La procédure est indépendante des noms des classeurs, le classeur de base est celui de la procédure et celui de copy vous sera demandé.
Voici ma proposition : https://www.cjoint.com/?jrjbvZVPjC
Enregistrer le fichier ZIP (2 classeurs) sur le bureau, les extraire et ensuite ouvrir uniquement le : [Juju_ccm_base.xls]. Feuilles [Janvier] lancer la procédure par clic sur le rectangle rose et suivre les instructions ….
Note : vous devrai ouvrir le fichier [Juju_ccm_copy.xls].
Par la suite il faut simplement copier la procédure [Sub FiltrerCopierVersClasseurCopy()] et la coller dans un module de votre classeur de travail. La procédure est indépendante des noms des classeurs, le classeur de base est celui de la procédure et celui de copy vous sera demandé.
Bonjour,
Remarque : dans cette ligne d’instruction : For li = 3 To Range("A65536").End(xlUp).Row
La valeur 3 correspond à la première ligne de données dans le classeur de travail, si pas le cas modifier la valeur.
Remarque : dans cette ligne d’instruction : For li = 3 To Range("A65536").End(xlUp).Row
La valeur 3 correspond à la première ligne de données dans le classeur de travail, si pas le cas modifier la valeur.
16 sept. 2009 à 17:42
je dois réaliser un premier tri sur la colonne "solde" ou "F" lorsque les valeur sont sup a 5 je voudrais copier la ligne dans un autre classeur
et pour la colonne "proraté" ou "H" la démarche est identique sauf que cela concerne des valeurs sup à 100...
bref si tu y comprends qqch....?? merci quand même...