Résultats de la recherche

Bonjour à tous, j'ai dans le fichier ci joint sur la feuille 1 un listing de service, sur la feuille 2 j'ai ce meme listing organisé differemment avec des valeurs correspondantes. J'aimerais afficher dans la colonne C de la feuille 1 ces valeurs en comparant service par service. J'ai essayé...

Bonjour a tous, J'ai dans un fichier excel 3 colonnes correspondant aux dates du 1er, 2eme et 3eme rdv d'un patient J'aimerai comptabiliser le nombre de personnes n'ayant eu qu'un rdv, deux rdv ou trois rdv. J'ai donc commencé avec un seul rdv Sheets("Copie2").Select...

Bonjour a tous, j'ai dans une colonne des villes, des départements ou des régions et j'aimerai regrouper ces différents éléments dans des groupes. J'ai essayé le code suivant mais sans succès : Dim y As Range Dim p1 As Long Dim p2 As Long Dim p3 As Long Dim p4 As Long Dim p5 As Long Dim...

ReReBonjour, je cherche a créer un code conditionnant la suppression d'une feuille. Si la feuille sélectionnée est "Modele", un message avertit l'utilisateur que celle-ci ne peut-être supprimée, sinon la feuille est supprimée. Mais voila mon code ci-dessous ne fonctionne pas. Avez vous une idée...

Rebonjour J'ai créé un bout de code permettant a l'utilisateur d'entrer une date et ensuite le planning d'une semaine est créé a partir de cette date. Seulement j'aimerai pouvoir tester que la date entrée ne puisse-t-être qu'un lundi Sub nouveauplanning() Application.ScreenUpdating =...

Bonjour a tous, J'ai dans une cellule la formule suivante ="Semaine du " &B7 & " au " &F7 Les cellules B7 et F7 contiennent comme vous l'aurez deviné des dates. Le seul problème c'est que ces dates s'affichent au format 39XXX...Comment faire pour convertir ce format en lundi 1...

Bonjour a tous Alors tout d'abord voici mon code : Sub nouveauplanning() Dim retour As String Dim retour2 As String retour = InputBox("Entrez la date pour laquelle vous souhaitez générer un planning avec la syntaxe JJ/MM/AAAA", "", "", 100, 100) retour2 = InputBox("Entrez le nom du...

Bonjour comme présenté dans mon document ci joint, j'ai deux colonnes, la première partiellement remplie et la seconde parfaitement remplie... Ce que j'aimerai c'est pouvoir à l'aide d'un code en vba remplir dans la premiere colonne de 12 a 13 par des 12, de 13 a 14 par des 13 de 14 a 16 par des...

Bonjour a tous, comme présenté dans le fichier excel ci joint j'ai différents jours de la semaine avec le numéro du jour selon le mois. Ce que j'aimerai c'est que dans mon cas comme je suis en septembre 2008, il détermine lui même que le lundi c'est le 1, le deuxieme lundi le 8 etc...Si vous...

Bonjour a tous, voila mon probleme, je cherche a créer un bouton pour imprimer le graphique sélectionné dans un ensemble de graphique. Seulement quand aucun graphique n'est sélectionné et qu'on appuie sur le bouton d'impression, tout le fichier est imprimé. Ce que j'aimerai avoir c'est un...

Bonjour a tous, je cherche a calculer la somme du nombre d'hommes et de femmes par rapport a plusieurs feuilles Sur une feuille mon calcul étant : =NB.SI(Feuil1!C3:C65000;A2) Mais mettons que je veuille la même chose avec la Feuil2 et la Feuil3, la je suis largué. Merci de votre aide

bonjour a tous, j'ai deux colonnes A et B je dois supprimer les doublons de ces deux colonnes si par exemple la plage A2:B2 = A1:B1 J'ai donc créé ce bout de code : Sub comparer2() Dim i As Long For i = 65000 To 1 Step -1 If Cells(i, 1) = Cells(i - 1, 1) And Cells(i, 2) = Cells(i -...

Bonjour a tous, voila j'ai créé un outil statistique en VBA sur Excel 2003 pour ma responsable qui elle possède Excel 2000. Lorsque j'ai essayé de faire tourner mon programme sur son ordinateur, Excel 2000 m'a indiqué des tas d'erreurs alors que ca marchait parfaitement sur Excel 2003. Est-ce...

Bonjour a tous, je cherche a comprendre le fonctionnement d'une case a cocher avec vba Pour le moment j'ai intégré sur une feuille une case a cocher, et j'aimerai que si la case est cochée, un msg indique a l'utilisateur qu'elle l'est et inversement. (Apres je pousserai un peu plus mon...

Bonjour a tous, j'ai créé un petit code comparatif qui ne veut pas marcher. Pourriez vous m'indiquer l'erreur ? Merci Sub comparaison() Dim i As Integer For i = [B65000].End(xlUp).Row To 2 Step -1 If Cells(i, 2) = Cells(i, 10) Then Range(Cells(i, 11), Cells(i, 14)).Copy...

Bonjour a tous, j'ai une cellule que je nomme selon la variable "Service" dim service as string service = 17/10 Range("A2").select ActiveCell.FormulaR1C1 = Service Mais j'aimerai aussi afficher la date dans cette cellule, j'ai alors essayé la syntaxe ActiveCell.FormulaR1C1 = Service...

Bonjour a tous, j'ai un petit programme en vba qui récupère dans différents fichiers des informations. Seulement des que ce programme ouvre plusieurs fichiers en même temps, ma barre des taches est "blindée" et j'ai l'impression que ca ralentit sensiblement mon programme. Est-il possible de...

Bonjour a tous, je cherche à appliquer une condition dans le cas ou la somme entre plusieurs valeurs est supérieur a 1. J'ai essayé le code suivant : If "=sum(cv2:cv128)" > 1 Then Mais vba n'en veut pas, si vous pouviez m'aider. Merci d'avance.

Bonjour a tous, j'aimerai savoir si il est possible dans mon fichier suivant de filtrer les personnes par service avec un code vba du genre : With Selection .AutoFilter .AutoFilter Field:=1, Criteria1:="<>" .Copy End With Tout en copiant le filtrage obtenu...

Bonjour a tous, dans mon document ci joint j'ai une colonne contenant des tranches d'age et dans une autre le sexe de la personne. Dans un tableau j'aimerai pouvoir obtenir combien il y a par exemple d'hommes ayant moins de 25 ans, de femmes ayant plus de 76 ans. J'ai donc cherché a faire un...