Résultats de la recherche

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...

Re : copier la derniere ligne d'une plage dans la ligne suivante Bonjour tototiti2008, Voici le code ecrit Workbooks("KM_3_Berechnung_Lager_PM_2012-02.xls").Sheets("DATEN").Activate DerLig As Long DerLig = Range("M4").End(xlDown).Row Range("M" & DerniereLigne &...

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...

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...

Re : determiner un mois a partir d'une date d'aujourdhui() Merci tototiti cela marche super Phil

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...

Re : cellule clignotante mais c'est bien sur.... merci à vous

Re : cellule clignotante bonjour a tous, a l'execution de ce code il me met une erreur "depacement de capacité" en me mettant la ligne For i = 3 To 500 comment puis je faire car je dois tester la colonne "ba" de 3 à 1000 Public Sub Clign() Dim i As Byte ' Temps = Now +...

depassement de capacite Bonjour à tous, quand j'execute ce code il me met la ligne For i = 3 To 500et une erreur du type depassement de capacité ne peut on rien faire? Public Sub Clign() Dim i As Byte ' Temps = Now + TimeValue("00:00:02") Application.OnTime Temps, "Clign"...

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...

Re : ligne en rouge se met toujours en erreur Bonjour Robert, J'ai mis les guillemets mais cela reporte l'erreur sur la partie entre guillemets suivante "dd_MM_yyyy").

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...

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...

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...

Re : soustraction d'heures Merci à vous pour votre aide

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

Re : probléme d'ecriture Merci à vous , Mutzik et Mth votre savoir m'a été benefique

Re : probléme d'ecriture Bonjour Mutzik voila j'ai mis ActiveCell.FormulaR1C1 = "= ("b" & f "+ d" & f)*0.74 +("c" & f "+d" & f)*2.1 mais là il me met erreur de compilation , attendu de fin d'instruction en me mettant le B en erreur ? j' ai fais une erreur ?

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...

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"