Résultats de la recherche

  1. T

    amelioration de code

    Re : amelioration de code Excellente idée merci cela fonctionne
  2. T

    amelioration de code

    Re : amelioration de code Voila ci-joint un fichier exemple Quand j'exporte mes lignes grace au checkbox, je voudrais quelle soit dans cette ordre : nom, valeur, prix bordereaux, type, type contrat, MO unit et derniere mise a jour Merci
  3. T

    amelioration de code

    Re : amelioration de code Merci cela fonctionne parfaitement maintenant il faut que je copie les données des colonnes et c'est toujours pareil avec mon code je n'est pas la colonne N en 3eme position For i = 8 To 16 If shtbase.OLEObjects("CheckBox" & i).Object.Value Then shtbase.Range("C" & i...
  4. T

    amelioration de code

    Re : amelioration de code Je pourrai pas attribuer une cellule a une autre par exemple C11 a A1, D11 a B1, N11 a C1, etc ... j'ai essayé ce morceau de code mais cela ne fonctionne pas shtbase.Range("C11,D11,N11,E11,F11,G11,H11,S11").Copy shtpda.Range("A1,B1,C1,D1,E1,F1,G1,H1").PasteSpecial
  5. T

    amelioration de code

    Re : amelioration de code Bonjour, Merci pour vos solutions shtbase.Range("C11,D11,E11,F11,G11,H11,N11,S11").Copy shtpda.Range("A1").PasteSpecial cela fonctionne mais je voudrais que la colonne N soit en 3eme position donc j'ai essayé ceci (j'ai mis le "N" en 3eme position mais cela ne...
  6. T

    amelioration de code

    Bonjour, etant débutant en VBA, je suis sur que mon code est optimisable (je sais pas si sa existe ce mot) shtbase.Range("C11").Copy shtpda.Range("A1").PasteSpecial shtbase.Range("D11").Copy shtpda.Range("B1").PasteSpecial shtbase.Range("N11").Copy shtpda.Range("C1").PasteSpecial...
  7. T

    amelioration de code

    Re : amelioration de code Merci tototiti2008 cela fonctionne parfaitement et c'est bocoup moin fastidieu a écrire
  8. T

    amelioration de code

    Re : amelioration de code pour le code de martin 2440 Cela fonctionne presque, j'ai une erreur sur cette ligne If shtbase.Controls("CheckBox" & i - 4).Value = True Then erreur d'execution '438' propriété ou méthode non géré par cette objet
  9. T

    amelioration de code

    Re : amelioration de code Merci pour vos réponse martin 2440 il me met une erreur au next et i me di pas de next sans for pourtant le for est au dessus, je ne comprend pas
  10. T

    amelioration de code

    Bonjour, je voudrais savoir si c'ete possible d'ameliorer mon code car la ce n'est que une petite partie, j'ai 300 ligne comme sa. Je pense que ce soit possible avec une boucle for (je vois comment faire en C mais pas en VBA :( ) . Si quelqu'un a une idée Merci Sub export() Dim Chemin...
  11. T

    Export ligne dans autre classeur si checkbox coché

    Re : Export ligne dans autre classeur si checkbox coché Grace a ce code j'ai réussi a faire ce que je voulais je voudrais savoir si je pouvais le simplifier ? Comment coller dans le classeur de destination sur la prochaine ligne vide ? Sub export() Dim Chemin As String, Fichier As...
  12. T

    Export ligne dans autre classeur si checkbox coché

    Re : Export ligne dans autre classeur si checkbox coché Personne n'a d'idée ? Private Sub CommandButton1_Click() If CheckBox1.Value = True Then Range("C2").Select Selection.Copy Workbooks.Open Filename:="C:\Documents and Settings\peyret\Bureau\pda.Xls"...
  13. T

    Export ligne dans autre classeur si checkbox coché

    Bonjour, Je souhaite exporté des lignes vers un autre classeur les lignes a exportés sont selectionner grace a des checkbox Une fois que l'on a selectionné les lignes a exporté, on clique sur un bouton et les lignes coché se retrouve dans le nouveau classeur je sais pas si c'est trés clair...
  14. T

    Selection ligne tableau

    Re : Selection ligne tableau Oui ta maccro fonctionne mais je me suis rendu compte que ce n'ete pas pratique Je voudrais attribuer a chaque ligne une checkbox, une fois les checkbox cocher, copier les lignes correspondantes dans un autre classeur pour faire ceci, c'est plus simple avec des...
  15. T

    Selection ligne tableau

    Re : Selection ligne tableau Merci Qelqu'un serait comment affecter une ligne a une checkbox ?
  16. T

    Selection ligne tableau

    Bonjour, Je voudrais quand je clique sur un bouton, une fenetre s'ouvre pour pouvoir entrer les numéro de lignes a sélectionner ou les selectionner directement en cliquant sur la ligne (si c'est possible de faire) et les exporter sur un autre classeur. Merci
  17. T

    difference entre 2 dates

    Re : difference entre 2 dates Cela fonction si j'ai seulement mars ?
  18. T

    difference entre 2 dates

    Bonjour, Je voudrais avoir le nombre de mois entre 2 dates j'utilise la fonction : =DATEDIF(U7; U8; "m" ) Cette fonction fonctionne seulement pour 2 dates de cette forme 01/01/2000 Je voudrais savoir si cete possible de faire la même chose avec une date sous forme 01/01/2000 et un moi (par...
  19. T

    Améliorer vitesse d'éxécution

    Re : Améliorer vitesse d'éxécution Aucune macro ne s'execute a l'ouverture et je ne peu pas changer de place le fichier :-( car tout le monde doit avoir accés au fichier
  20. T

    Améliorer vitesse d'éxécution

    Re : Améliorer vitesse d'éxécution Cela met 10s