Copier des cellules dans une autre feuille sous condition
Bonjour à tous,
Je viens de m'inscrire et suis novice dans le VBA !
Avant tous, je vous remercie d'avance pour l'aide que vous pourrez m'apporter.
Après avoir passer une trenteine d'heure à chercher ma solution, je me suis inscris sur ce forum car je perd espoir !
Je vous explique mon cas.
Je souhaite copier des cellules sur une autres feuilles en fonction d'une condition dans la dernière cellule.
Votre aide me sera précieuse...
Cordialement.
Bonjour Nenel,
Il sera difficile de te proposer une solution avec si peu d'informations;
l'idéal serait de joindre ton fichier,ou s'il est confidentiel de proposer un exemple similaire.
cordialement
Bonjour,
Ci-joint le fichier à traiter.
Merci d'avance,
Cordialement.
Bonjour,
Fichier oublié !...
Avec la pièce jointe c'est mieux
Cdt.
Toujours pas
J'ai joint le fichier dans le message mais il n'apparait pas !
Il faut
1- Choisir le fichier
2 - AJOUTER LE FICHIER "Bouton Vert" ( c'est ce que tu as sans doute oublié)
3 - Puis envoyer.
L'extension n'étais pas autoriser !
Je réessaye
L'extension "XLXS" n'était pas autorisée...
Après changement en "XLS"
Voici le fichier ci-dessus...
Alleluia
Je souhaite dans le feuille "Liste CDMG", copier les cellules "A" jusqu'à "E" à condition que la cellule "I" est la valeur "X"
Ces infos seraient copier dans la feuille "Adhérents"
Si possible enlever les lignes blanches...
Cdt.
Dommage, je ne peux pas l'ouvrir
essaie avec cjoint.com
Tu utilise bien excel?
Si oui, Ouvre ton fichier et enregistre le en XLs et renvoie le
Format XLSM
FORMAT XLS
Mr. Bernard, vous avez réussie à télécharger le fichier ?
Cdt.
Bonjour,
N'ayant plus de connexion internet je reviens seulement maintenant vers vous...
Je viens d'ouvrir le fichier Mr. Bernard mais ne fonctionne pas !
Cordialement.
Bonsoir,
Chez moi celà fonctionne
Je modifie en mettant sur la feuille1 un bouton pour lancer la macro
J'ai pris votre code et l'ai recopier et sa fonctionne mais pas automatiquement...
Que fois t'on rajouter dans le code pour que sa s'exécute automatiquement ?
Merci encore pour le temps que vous prenez....
Bonsoir,
Je ne vois pas l'utilité de faire une mise à jour permanente ( vous sans doute), à mon avis, cela ralentirai considérablement la saisie.
De plus loin d'être un expert en macros, je ne sais pas le faire.
Je vais rechercher pour le fun, mais je pense que tu auras d'autres réponses de personnes bien plus compétentes.
Si je trouve quelque chose d'intéressant je le poste.
Bonne soirée.
Je te remercie, je suis actuellement à la recherche aussi. C'est mon coter curieux
En espérant trouver et si quelqu'un à la solution, se serait super pour nous...
Merci d'avance à ceux qui m'aide.....
Cordialement.
J'ai trouver le code qui est ci-dessous dans le forum qui fonctionne.
Ce ne sont pas les cellules de mon fichier mais sa fonctionne et en automatique.
Donc si quelqu'un arrive à m'adapter ce code sur mon fichier, sa serait génial
Code dans "paiement"
Private Sub Worksheet_Activate()
'fait par willy
Sheets("Commande").Range("A7:H6845").ClearContents
li = Sheets("Données").Range("B7").End(xlDown).Row
If Sheets("Données").Range("B7") = "" Then MsgBox "Pas de données saisies!", vbCritical: Exit Sub
If Sheets("Données").Range("B8") = "" Then li = 7
ligne = 7
For i = 7 To li
If UCase(Sheets("Données").Range("A" & i)) = "X" Then
Cells(ligne, 1) = Sheets("Données").Cells(i, 2)
Cells(ligne, 2) = Sheets("Données").Cells(i, 3)
Cells(ligne, 3) = Sheets("Données").Cells(i, 4)
Cells(ligne, 5).FormulaR1C1 = "=RC[-1]*RC[-2]"
ligne = ligne + 1
End If
Next
Range("D7").Select
End Sub
Code dans module 1 :
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 16/05/2013 par willy
'
'
Range("E7").Select
ActiveCell.FormulaR1C1 = "=RC[-1]*RC[-2]"
Range("E7").Select
End Sub
Bonsoir,
Petites modif:
1 - Suppression de lignes inutiles
2 - Effacement de l'onglet "Adhérents" avant la mise à jour.
Tu as fait la modif ou ?
Dans mon fichier excel directement ?
Bonsoir,
Dans Le Code
'effacements des données de la feuille "Adhérents"
Sheets("Adhérents").Select
Sheets("Adhérents").Range("A4").Select
Sheets("Adhérents").Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.ClearContents
Sheets("Adhérents").Range("A4").Select