Résultats de la recherche

  1. P

    la methode range a echouée

    Bonsoir , j'ai ce bout de code qui ne fonctionne pas Range("K5.End(xlDown).Offset(0, 2):CT").Select Il doit descendre jusqu'a la derniere ligne de de K aller deux colonne plus loin et selectionner la ligne jusqu'a "CT" cependant une erreur me dit la methode range a echoué Pouuriez vous...
  2. P

    copier la derniere ligne d'une plage dans la ligne suivante

    Bonjour à tous, je suis un peu confus dans mes recherches Mon probleme, le dois copier la derniere ligne d'une plage de données qui n'est pas fixe, et la coller dans la ligne suivante avec ce code je selectionne la plage...
  3. P

    selection d'une plage

    Bonjour à tous J'ai un code qui devrait me selectionner la plage entiere de A5: L5 jusqu'à la derniere ligne toujours aleatoire soit aujourdhui A6400:L6400 (la plage est donc A5:L6400) Sheets("monatsbericht").Activate Range("A5:L5").End(xlDown).Select Mais il ne me selectionne que...
  4. P

    determiner un mois a partir d'une date d'aujourdhui()

    Bonjour à tous , devant établir une stat tous les mois je souhaiterai automatiser celle ci car elle me prend beaucoup de temps Voila en C1 j'ai la date d'aujourdhui En B1 je dois mettre le premier du mois précedant le mois indiquée la date d'aujourdhui et et B2 je dois mettre le premier de...
  5. P

    cellule clignotante

    Bonsoir à tous N'etant pas encore expert, je fais appelle à votre aide . voila j'ai une macro qui dit que si la cellue B3 est >9 elle se met en rouge et un dessin clignote Ce que je voudrai c'est qu'elle me teste toute les cellules de b et agit en consequence donc j'ai mis un for next mais...
  6. P

    ligne en rouge se met toujours en erreur

    J'ai écris une macro qui doit simplement ajouter un classeur nommé "Schadensmeldung" auquel j'associe la date du jour et dans lequel je copie la premiere feuille du dossier sinistre appelée document La ligne en rouge se met en erreur indiquant que l'indice n'appartient pas à.... j' ai essayé d'y...
  7. P

    appeler une macro à partir d'une private sub

    Bonjour à tous Comment appeler une macro à partir de d'une private sub ? J'ai une private qui me fait un travail. Ce travail terminé j'ai écris une sub qui doit me copier le fichier travaillé , ouvrir un autre classeur me coller le résultat puis l'envoyer par outloock. le probleme c'est...
  8. P

    lancer une macro par activation de cellule

    Bonjour à tous Est-il-possible d'activer une macro en activant une cellulle de la colonne A , cellule qui selectionnera les données de sa ligne et les collera dans des cellulles designées dans feuill 2 J'ai écris un code qui ne marche pas trop Sub Macro15() Sheets("recap...
  9. P

    soustraction d'heures

    bonjour, J'ai un petit problème au niveau d' une formule si A=8: et b=16: c= (B-A) -(0:30) la formule me met en erreur car quelques soit A et B il faut toujours que j'ote une demi heure au résultat . pourriez vous m'aider à l'écrire ? Merci
  10. P

    probléme d'ecriture

    Bonjour à tous J'ai ce bout de code For F = 4 To 34 If Cells(F, 1) = Date Then Range("GZ" & F).Select (parceque je remplis la colonne GZ chaque jour ) ActiveCell.FormulaR1C1 = "= qui dit que si une cellule de la colonne A qui contient les jours du mois correspond à la date du...
  11. P

    ecriture rouge

    Bonjour à tous, Je pense avoir une erreur dans mon écriture pourriez vous m'aider à la mettre a la norme Je souhaite que la formule s'affiche en rouge et cela ne marche pas Merci Range("CD" & d).Select ActiveCell.FormulaR1C1 = "=RC[-1]*8.5.Font.Color = vb red"
  12. P

    selection de cellules

    Bonjour à tous , en a1 j'ai la date du jour (aujourdhui()), j'ai également une plage de a4 à a33 ou se trouve les jours du mois en cours, ce que je voudrais c'est rechercher dans la plage a4 a33 la valeur a1 et une fois trouvée selectionner les cellules 1,3 7,5 de la ligne correspondante...
  13. P

    tester les cellules d'une colonne

    Bonjour à tous je souhaiterai tester les cellules de 1 à 1000 de la colonne B Je sais que je dois placer un iterateur (i), mais comment l'écrire If Val(Sheets(1).Range("B"& i).Value) > 9 Then Clign ? et i = 1 to 1000 sachant que la ligne ci dessous ne teste que la cellule B3 If...
  14. P

    adaptation d'une macro

    Bonjour à tous , J'ai une macro qui permet de faire clignoter une cellule si la valeur de la cellule est superieure à 9 Voici le code Private Sub Workbook_Open() 'Lance le clignotement à l'ouverture si la cellule AZ3 supérieure à 9 If Val(Sheets(1).Range("AZ3").Value) > 9 Then...
  15. P

    condition

    Bonjour à tous J'ai un code qui ne m'apporte pas le résultat voulu For i = Cells(200, 2).End(xlUp).Row To 1 Step -1 If Cells(i, 2) Like Date - 1 And Cells(i, 3) < ("15:00") Then Rows(i).Delete Next Dans la colonne B j'ai 2 dates soit celle...
  16. P

    selection de 2 dates

    Bonjour Je dois automatiser l'envoi d'un fichier qui comporte des données. La colonne B contient des dates et je dois selectionner les données ayant la date du jour plus la date du jour moins un j'ai donc le code ActiveSheet.Range("$A$5:$AQ$11131").AutoFilter Field:=2, Criteria1:=Date...
  17. P

    copier une ligne d'un classeur vers un autre

    Bonjour à tous, j'ai essayé de me dépatouiller tous eul mais..;mon code ne fonctionne pas . Ce que je voudrais , c'est copier la ligne complête du classeur "A_4_2_LagerKontrolleGP.xls" quand la date definie dans la colonne a est égale à aujourd'hui vers le classeur "Stat" à la suite des...
  18. P

    modifier le nom d'un classeur

    Bonjour à tous, Je souhaiterai dans la chronologie d'une macro , modifier le nom d'un classeur en ajoutant le contenu d'une cellule (E4) comprenant un chiffre (numero de la semaine) pour ce faire j'ai ce code qui malheureusement ne fonctionne pas car il me met systematiquement un zero au...
  19. P

    envoi d'une feuille

    Bonjour à tous, j'ai des relevés a envoyé automatiquement toutes les fins de semaine et qui font partis du même classeur Pour ce faire j'aimerai envoyé independament feuille par feuille et là j'ai un probleme car ma macro expedie le classeur complet , pourriez vous m'aider? (les feuilles ont...
  20. P

    coller les cellules C:K

    Bojour à tous, je recois un classeur comprenant les commandes detaillées de clients j'ai une macro qui me permets d'introduire une ligne entre chaque client puis qui me calcule le poids et le nombre de colis dans cette ligne ajoutée et la teinte en bleue pour la distinguer . toutefois je...