Bonjour,
J'ai découvert reccement les fonctions incroyables de ce logiciel. Et
j'aimerais faire deux petites choses (qui peuvent parraitre assez facile
mais que j'ai aucune idée comme faire).
La premiere est de trouver une manière de sortir la date du lundi de la
semaine en cours.
Et la deuxieme (qui est plus compliquée) serait de faire une feuille où
serait consigné toutes les cases avec un formatage spécial de mon
classeur. Je m'explique: par exemple, un document de 4 feuilles avec, dans
ces feuilles, des cases avec des mots écrit en rouge; serait-il possible
d'avoir une cinquième feuille qui enregistrerait toutes ces cases écrites
en rouges automatiquement ? et si possible avec la case à gauche de cette
case en rouge (pour une date par exemple).
Cela me serait utile car je fais mes comptes avec excel et je désirerais
recensser toutes les opérations effectués avec une de mes cartes de crédit
(opérations en rouge avec la date de l'opération à gauche de la case).
Merci de l'attention portée à mes question,
Olivier P
Bonjour,
J'ai découvert reccement les fonctions incroyables de ce logiciel. Et
j'aimerais faire deux petites choses (qui peuvent parraitre assez facile
mais que j'ai aucune idée comme faire).
La premiere est de trouver une manière de sortir la date du lundi de la
semaine en cours.
Et la deuxieme (qui est plus compliquée) serait de faire une feuille où
serait consigné toutes les cases avec un formatage spécial de mon
classeur. Je m'explique: par exemple, un document de 4 feuilles avec, dans
ces feuilles, des cases avec des mots écrit en rouge; serait-il possible
d'avoir une cinquième feuille qui enregistrerait toutes ces cases écrites
en rouges automatiquement ? et si possible avec la case à gauche de cette
case en rouge (pour une date par exemple).
Cela me serait utile car je fais mes comptes avec excel et je désirerais
recensser toutes les opérations effectués avec une de mes cartes de crédit
(opérations en rouge avec la date de l'opération à gauche de la case).
Merci de l'attention portée à mes question,
Olivier P
Bonjour,
J'ai découvert reccement les fonctions incroyables de ce logiciel. Et
j'aimerais faire deux petites choses (qui peuvent parraitre assez facile
mais que j'ai aucune idée comme faire).
La premiere est de trouver une manière de sortir la date du lundi de la
semaine en cours.
Et la deuxieme (qui est plus compliquée) serait de faire une feuille où
serait consigné toutes les cases avec un formatage spécial de mon
classeur. Je m'explique: par exemple, un document de 4 feuilles avec, dans
ces feuilles, des cases avec des mots écrit en rouge; serait-il possible
d'avoir une cinquième feuille qui enregistrerait toutes ces cases écrites
en rouges automatiquement ? et si possible avec la case à gauche de cette
case en rouge (pour une date par exemple).
Cela me serait utile car je fais mes comptes avec excel et je désirerais
recensser toutes les opérations effectués avec une de mes cartes de crédit
(opérations en rouge avec la date de l'opération à gauche de la case).
Merci de l'attention portée à mes question,
Olivier P
Bonjour.
Pour ta première question, la formule peut être :
=AUJOURDHUI()-JOURSEM(AUJOURDHUI();2)+1
Pour la seconde, utilise la macro suivante :
Sub Test()
Dim i As Integer, Plage As Range, c As Range, Ctr As Long
Ctr = 1
For i = 1 To Sheets.Count
If Sheets(i).Name <> "Feuil5" Then
Sheets(i).Select
Set Plage = Range("A1",
Range("A1").SpecialCells(xlCellTypeLastCell))
For Each c In Plage
If c.Interior.ColorIndex = 3 Then
Sheets("Feuil5").Range("B" & Ctr) = c.Value
Sheets("Feuil5").Range("A" & Ctr) =
c.Offset(0, -1).Value
Ctr = Ctr + 1
End If
Next c
End If
Next i
End Sub
J'ai supposé que l'index couleur était 3 (rouge pétant); pour déterminer
la couleur que tu utilises, positionne-toi sur une cellule rouge et
exécute le code suivant :
Sub QuelleCouleur()
Dim Ctr As Long
MsgBox Selection.Interior.ColorIndex
End Sub
Le cas échéant, remplacecolorindex=3 par le nombre obtenu.
Cordialement.
Daniel
"Olivier Parent Colombel" a écrit dans le message
de news: O4Olkm%Bonjour,
J'ai découvert reccement les fonctions incroyables de ce logiciel. Et
j'aimerais faire deux petites choses (qui peuvent parraitre assez facile
mais que j'ai aucune idée comme faire).
La premiere est de trouver une manière de sortir la date du lundi de la
semaine en cours.
Et la deuxieme (qui est plus compliquée) serait de faire une feuille où
serait consigné toutes les cases avec un formatage spécial de mon
classeur. Je m'explique: par exemple, un document de 4 feuilles avec,
dans ces feuilles, des cases avec des mots écrit en rouge; serait-il
possible d'avoir une cinquième feuille qui enregistrerait toutes ces
cases écrites en rouges automatiquement ? et si possible avec la case à
gauche de cette case en rouge (pour une date par exemple).
Cela me serait utile car je fais mes comptes avec excel et je désirerais
recensser toutes les opérations effectués avec une de mes cartes de
crédit (opérations en rouge avec la date de l'opération à gauche de la
case).
Merci de l'attention portée à mes question,
Olivier P
Bonjour.
Pour ta première question, la formule peut être :
=AUJOURDHUI()-JOURSEM(AUJOURDHUI();2)+1
Pour la seconde, utilise la macro suivante :
Sub Test()
Dim i As Integer, Plage As Range, c As Range, Ctr As Long
Ctr = 1
For i = 1 To Sheets.Count
If Sheets(i).Name <> "Feuil5" Then
Sheets(i).Select
Set Plage = Range("A1",
Range("A1").SpecialCells(xlCellTypeLastCell))
For Each c In Plage
If c.Interior.ColorIndex = 3 Then
Sheets("Feuil5").Range("B" & Ctr) = c.Value
Sheets("Feuil5").Range("A" & Ctr) =
c.Offset(0, -1).Value
Ctr = Ctr + 1
End If
Next c
End If
Next i
End Sub
J'ai supposé que l'index couleur était 3 (rouge pétant); pour déterminer
la couleur que tu utilises, positionne-toi sur une cellule rouge et
exécute le code suivant :
Sub QuelleCouleur()
Dim Ctr As Long
MsgBox Selection.Interior.ColorIndex
End Sub
Le cas échéant, remplacecolorindex=3 par le nombre obtenu.
Cordialement.
Daniel
"Olivier Parent Colombel" <laidzone@hotmail.com> a écrit dans le message
de news: O4Olkm%23nFHA.1204@TK2MSFTNGP12.phx.gbl...
Bonjour,
J'ai découvert reccement les fonctions incroyables de ce logiciel. Et
j'aimerais faire deux petites choses (qui peuvent parraitre assez facile
mais que j'ai aucune idée comme faire).
La premiere est de trouver une manière de sortir la date du lundi de la
semaine en cours.
Et la deuxieme (qui est plus compliquée) serait de faire une feuille où
serait consigné toutes les cases avec un formatage spécial de mon
classeur. Je m'explique: par exemple, un document de 4 feuilles avec,
dans ces feuilles, des cases avec des mots écrit en rouge; serait-il
possible d'avoir une cinquième feuille qui enregistrerait toutes ces
cases écrites en rouges automatiquement ? et si possible avec la case à
gauche de cette case en rouge (pour une date par exemple).
Cela me serait utile car je fais mes comptes avec excel et je désirerais
recensser toutes les opérations effectués avec une de mes cartes de
crédit (opérations en rouge avec la date de l'opération à gauche de la
case).
Merci de l'attention portée à mes question,
Olivier P
Bonjour.
Pour ta première question, la formule peut être :
=AUJOURDHUI()-JOURSEM(AUJOURDHUI();2)+1
Pour la seconde, utilise la macro suivante :
Sub Test()
Dim i As Integer, Plage As Range, c As Range, Ctr As Long
Ctr = 1
For i = 1 To Sheets.Count
If Sheets(i).Name <> "Feuil5" Then
Sheets(i).Select
Set Plage = Range("A1",
Range("A1").SpecialCells(xlCellTypeLastCell))
For Each c In Plage
If c.Interior.ColorIndex = 3 Then
Sheets("Feuil5").Range("B" & Ctr) = c.Value
Sheets("Feuil5").Range("A" & Ctr) =
c.Offset(0, -1).Value
Ctr = Ctr + 1
End If
Next c
End If
Next i
End Sub
J'ai supposé que l'index couleur était 3 (rouge pétant); pour déterminer
la couleur que tu utilises, positionne-toi sur une cellule rouge et
exécute le code suivant :
Sub QuelleCouleur()
Dim Ctr As Long
MsgBox Selection.Interior.ColorIndex
End Sub
Le cas échéant, remplacecolorindex=3 par le nombre obtenu.
Cordialement.
Daniel
"Olivier Parent Colombel" a écrit dans le message
de news: O4Olkm%Bonjour,
J'ai découvert reccement les fonctions incroyables de ce logiciel. Et
j'aimerais faire deux petites choses (qui peuvent parraitre assez facile
mais que j'ai aucune idée comme faire).
La premiere est de trouver une manière de sortir la date du lundi de la
semaine en cours.
Et la deuxieme (qui est plus compliquée) serait de faire une feuille où
serait consigné toutes les cases avec un formatage spécial de mon
classeur. Je m'explique: par exemple, un document de 4 feuilles avec,
dans ces feuilles, des cases avec des mots écrit en rouge; serait-il
possible d'avoir une cinquième feuille qui enregistrerait toutes ces
cases écrites en rouges automatiquement ? et si possible avec la case à
gauche de cette case en rouge (pour une date par exemple).
Cela me serait utile car je fais mes comptes avec excel et je désirerais
recensser toutes les opérations effectués avec une de mes cartes de
crédit (opérations en rouge avec la date de l'opération à gauche de la
case).
Merci de l'attention portée à mes question,
Olivier P
Merci beaucoup pour la réponse rapide,
La premiere fonction marche super bien, c'est si facile que je suis
stupide de pas y avoir pensé avant.
Pour la deuxième, c'est plus difficile. J'ai des erreurs bizarres quand je
l'execute. J'ai envoyé le fichier sur yousendit.
C'est seulement un petit exemple pour montrer ce que j'aimerais faire.
Donc passer les ligne qui ont le montant en rouge (-4142) de la feuille
"De ici" à celle s'appellant "À là-bas). Le lien est celui-ci:
http://s64.yousendit.com/d.php?id=2KLCSEURJE0WOBK927KY0AUOS
merci beaucoup,
Olivier
"Daniel" a écrit dans le message de news:
enp$UH$Bonjour.
Pour ta première question, la formule peut être :
=AUJOURDHUI()-JOURSEM(AUJOURDHUI();2)+1
Pour la seconde, utilise la macro suivante :
Sub Test()
Dim i As Integer, Plage As Range, c As Range, Ctr As Long
Ctr = 1
For i = 1 To Sheets.Count
If Sheets(i).Name <> "Feuil5" Then
Sheets(i).Select
Set Plage = Range("A1",
Range("A1").SpecialCells(xlCellTypeLastCell))
For Each c In Plage
If c.Interior.ColorIndex = 3 Then
Sheets("Feuil5").Range("B" & Ctr) = c.Value
Sheets("Feuil5").Range("A" & Ctr) =
c.Offset(0, -1).Value
Ctr = Ctr + 1
End If
Next c
End If
Next i
End Sub
J'ai supposé que l'index couleur était 3 (rouge pétant); pour déterminer
la couleur que tu utilises, positionne-toi sur une cellule rouge et
exécute le code suivant :
Sub QuelleCouleur()
Dim Ctr As Long
MsgBox Selection.Interior.ColorIndex
End Sub
Le cas échéant, remplacecolorindex=3 par le nombre obtenu.
Cordialement.
Daniel
"Olivier Parent Colombel" a écrit dans le message
de news: O4Olkm%Bonjour,
J'ai découvert reccement les fonctions incroyables de ce logiciel. Et
j'aimerais faire deux petites choses (qui peuvent parraitre assez facile
mais que j'ai aucune idée comme faire).
La premiere est de trouver une manière de sortir la date du lundi de la
semaine en cours.
Et la deuxieme (qui est plus compliquée) serait de faire une feuille où
serait consigné toutes les cases avec un formatage spécial de mon
classeur. Je m'explique: par exemple, un document de 4 feuilles avec,
dans ces feuilles, des cases avec des mots écrit en rouge; serait-il
possible d'avoir une cinquième feuille qui enregistrerait toutes ces
cases écrites en rouges automatiquement ? et si possible avec la case à
gauche de cette case en rouge (pour une date par exemple).
Cela me serait utile car je fais mes comptes avec excel et je désirerais
recensser toutes les opérations effectués avec une de mes cartes de
crédit (opérations en rouge avec la date de l'opération à gauche de la
case).
Merci de l'attention portée à mes question,
Olivier P
Merci beaucoup pour la réponse rapide,
La premiere fonction marche super bien, c'est si facile que je suis
stupide de pas y avoir pensé avant.
Pour la deuxième, c'est plus difficile. J'ai des erreurs bizarres quand je
l'execute. J'ai envoyé le fichier sur yousendit.
C'est seulement un petit exemple pour montrer ce que j'aimerais faire.
Donc passer les ligne qui ont le montant en rouge (-4142) de la feuille
"De ici" à celle s'appellant "À là-bas). Le lien est celui-ci:
http://s64.yousendit.com/d.php?id=2KLCSEURJE0WOBK927KY0AUOS
merci beaucoup,
Olivier
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
enp$UH$nFHA.3936@TK2MSFTNGP10.phx.gbl...
Bonjour.
Pour ta première question, la formule peut être :
=AUJOURDHUI()-JOURSEM(AUJOURDHUI();2)+1
Pour la seconde, utilise la macro suivante :
Sub Test()
Dim i As Integer, Plage As Range, c As Range, Ctr As Long
Ctr = 1
For i = 1 To Sheets.Count
If Sheets(i).Name <> "Feuil5" Then
Sheets(i).Select
Set Plage = Range("A1",
Range("A1").SpecialCells(xlCellTypeLastCell))
For Each c In Plage
If c.Interior.ColorIndex = 3 Then
Sheets("Feuil5").Range("B" & Ctr) = c.Value
Sheets("Feuil5").Range("A" & Ctr) =
c.Offset(0, -1).Value
Ctr = Ctr + 1
End If
Next c
End If
Next i
End Sub
J'ai supposé que l'index couleur était 3 (rouge pétant); pour déterminer
la couleur que tu utilises, positionne-toi sur une cellule rouge et
exécute le code suivant :
Sub QuelleCouleur()
Dim Ctr As Long
MsgBox Selection.Interior.ColorIndex
End Sub
Le cas échéant, remplacecolorindex=3 par le nombre obtenu.
Cordialement.
Daniel
"Olivier Parent Colombel" <laidzone@hotmail.com> a écrit dans le message
de news: O4Olkm%23nFHA.1204@TK2MSFTNGP12.phx.gbl...
Bonjour,
J'ai découvert reccement les fonctions incroyables de ce logiciel. Et
j'aimerais faire deux petites choses (qui peuvent parraitre assez facile
mais que j'ai aucune idée comme faire).
La premiere est de trouver une manière de sortir la date du lundi de la
semaine en cours.
Et la deuxieme (qui est plus compliquée) serait de faire une feuille où
serait consigné toutes les cases avec un formatage spécial de mon
classeur. Je m'explique: par exemple, un document de 4 feuilles avec,
dans ces feuilles, des cases avec des mots écrit en rouge; serait-il
possible d'avoir une cinquième feuille qui enregistrerait toutes ces
cases écrites en rouges automatiquement ? et si possible avec la case à
gauche de cette case en rouge (pour une date par exemple).
Cela me serait utile car je fais mes comptes avec excel et je désirerais
recensser toutes les opérations effectués avec une de mes cartes de
crédit (opérations en rouge avec la date de l'opération à gauche de la
case).
Merci de l'attention portée à mes question,
Olivier P
Merci beaucoup pour la réponse rapide,
La premiere fonction marche super bien, c'est si facile que je suis
stupide de pas y avoir pensé avant.
Pour la deuxième, c'est plus difficile. J'ai des erreurs bizarres quand je
l'execute. J'ai envoyé le fichier sur yousendit.
C'est seulement un petit exemple pour montrer ce que j'aimerais faire.
Donc passer les ligne qui ont le montant en rouge (-4142) de la feuille
"De ici" à celle s'appellant "À là-bas). Le lien est celui-ci:
http://s64.yousendit.com/d.php?id=2KLCSEURJE0WOBK927KY0AUOS
merci beaucoup,
Olivier
"Daniel" a écrit dans le message de news:
enp$UH$Bonjour.
Pour ta première question, la formule peut être :
=AUJOURDHUI()-JOURSEM(AUJOURDHUI();2)+1
Pour la seconde, utilise la macro suivante :
Sub Test()
Dim i As Integer, Plage As Range, c As Range, Ctr As Long
Ctr = 1
For i = 1 To Sheets.Count
If Sheets(i).Name <> "Feuil5" Then
Sheets(i).Select
Set Plage = Range("A1",
Range("A1").SpecialCells(xlCellTypeLastCell))
For Each c In Plage
If c.Interior.ColorIndex = 3 Then
Sheets("Feuil5").Range("B" & Ctr) = c.Value
Sheets("Feuil5").Range("A" & Ctr) =
c.Offset(0, -1).Value
Ctr = Ctr + 1
End If
Next c
End If
Next i
End Sub
J'ai supposé que l'index couleur était 3 (rouge pétant); pour déterminer
la couleur que tu utilises, positionne-toi sur une cellule rouge et
exécute le code suivant :
Sub QuelleCouleur()
Dim Ctr As Long
MsgBox Selection.Interior.ColorIndex
End Sub
Le cas échéant, remplacecolorindex=3 par le nombre obtenu.
Cordialement.
Daniel
"Olivier Parent Colombel" a écrit dans le message
de news: O4Olkm%Bonjour,
J'ai découvert reccement les fonctions incroyables de ce logiciel. Et
j'aimerais faire deux petites choses (qui peuvent parraitre assez facile
mais que j'ai aucune idée comme faire).
La premiere est de trouver une manière de sortir la date du lundi de la
semaine en cours.
Et la deuxieme (qui est plus compliquée) serait de faire une feuille où
serait consigné toutes les cases avec un formatage spécial de mon
classeur. Je m'explique: par exemple, un document de 4 feuilles avec,
dans ces feuilles, des cases avec des mots écrit en rouge; serait-il
possible d'avoir une cinquième feuille qui enregistrerait toutes ces
cases écrites en rouges automatiquement ? et si possible avec la case à
gauche de cette case en rouge (pour une date par exemple).
Cela me serait utile car je fais mes comptes avec excel et je désirerais
recensser toutes les opérations effectués avec une de mes cartes de
crédit (opérations en rouge avec la date de l'opération à gauche de la
case).
Merci de l'attention portée à mes question,
Olivier P
Regarde le fichier modifié :
http://s52.yousendit.com/d.php?id=1HS2Z9MMV4YS4ZWKMI1WUDWGK
Daniel
"Olivier Parent Colombel" a écrit dans le message
de news: O7HUUo$Merci beaucoup pour la réponse rapide,
La premiere fonction marche super bien, c'est si facile que je suis
stupide de pas y avoir pensé avant.
Pour la deuxième, c'est plus difficile. J'ai des erreurs bizarres quand
je l'execute. J'ai envoyé le fichier sur yousendit.
C'est seulement un petit exemple pour montrer ce que j'aimerais faire.
Donc passer les ligne qui ont le montant en rouge (-4142) de la feuille
"De ici" à celle s'appellant "À là-bas). Le lien est celui-ci:
http://s64.yousendit.com/d.php?id=2KLCSEURJE0WOBK927KY0AUOS
merci beaucoup,
Olivier
"Daniel" a écrit dans le message de news:
enp$UH$Bonjour.
Pour ta première question, la formule peut être :
=AUJOURDHUI()-JOURSEM(AUJOURDHUI();2)+1
Pour la seconde, utilise la macro suivante :
Sub Test()
Dim i As Integer, Plage As Range, c As Range, Ctr As Long
Ctr = 1
For i = 1 To Sheets.Count
If Sheets(i).Name <> "Feuil5" Then
Sheets(i).Select
Set Plage = Range("A1",
Range("A1").SpecialCells(xlCellTypeLastCell))
For Each c In Plage
If c.Interior.ColorIndex = 3 Then
Sheets("Feuil5").Range("B" & Ctr) = c.Value
Sheets("Feuil5").Range("A" & Ctr) =
c.Offset(0, -1).Value
Ctr = Ctr + 1
End If
Next c
End If
Next i
End Sub
J'ai supposé que l'index couleur était 3 (rouge pétant); pour déterminer
la couleur que tu utilises, positionne-toi sur une cellule rouge et
exécute le code suivant :
Sub QuelleCouleur()
Dim Ctr As Long
MsgBox Selection.Interior.ColorIndex
End Sub
Le cas échéant, remplacecolorindex=3 par le nombre obtenu.
Cordialement.
Daniel
"Olivier Parent Colombel" a écrit dans le message
de news: O4Olkm%Bonjour,
J'ai découvert reccement les fonctions incroyables de ce logiciel. Et
j'aimerais faire deux petites choses (qui peuvent parraitre assez
facile mais que j'ai aucune idée comme faire).
La premiere est de trouver une manière de sortir la date du lundi de la
semaine en cours.
Et la deuxieme (qui est plus compliquée) serait de faire une feuille
où serait consigné toutes les cases avec un formatage spécial de mon
classeur. Je m'explique: par exemple, un document de 4 feuilles avec,
dans ces feuilles, des cases avec des mots écrit en rouge; serait-il
possible d'avoir une cinquième feuille qui enregistrerait toutes ces
cases écrites en rouges automatiquement ? et si possible avec la case à
gauche de cette case en rouge (pour une date par exemple).
Cela me serait utile car je fais mes comptes avec excel et je
désirerais recensser toutes les opérations effectués avec une de mes
cartes de crédit (opérations en rouge avec la date de l'opération à
gauche de la case).
Merci de l'attention portée à mes question,
Olivier P
Regarde le fichier modifié :
http://s52.yousendit.com/d.php?id=1HS2Z9MMV4YS4ZWKMI1WUDWGK
Daniel
"Olivier Parent Colombel" <laidzone@hotmail.com> a écrit dans le message
de news: O7HUUo$nFHA.764@TK2MSFTNGP14.phx.gbl...
Merci beaucoup pour la réponse rapide,
La premiere fonction marche super bien, c'est si facile que je suis
stupide de pas y avoir pensé avant.
Pour la deuxième, c'est plus difficile. J'ai des erreurs bizarres quand
je l'execute. J'ai envoyé le fichier sur yousendit.
C'est seulement un petit exemple pour montrer ce que j'aimerais faire.
Donc passer les ligne qui ont le montant en rouge (-4142) de la feuille
"De ici" à celle s'appellant "À là-bas). Le lien est celui-ci:
http://s64.yousendit.com/d.php?id=2KLCSEURJE0WOBK927KY0AUOS
merci beaucoup,
Olivier
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
enp$UH$nFHA.3936@TK2MSFTNGP10.phx.gbl...
Bonjour.
Pour ta première question, la formule peut être :
=AUJOURDHUI()-JOURSEM(AUJOURDHUI();2)+1
Pour la seconde, utilise la macro suivante :
Sub Test()
Dim i As Integer, Plage As Range, c As Range, Ctr As Long
Ctr = 1
For i = 1 To Sheets.Count
If Sheets(i).Name <> "Feuil5" Then
Sheets(i).Select
Set Plage = Range("A1",
Range("A1").SpecialCells(xlCellTypeLastCell))
For Each c In Plage
If c.Interior.ColorIndex = 3 Then
Sheets("Feuil5").Range("B" & Ctr) = c.Value
Sheets("Feuil5").Range("A" & Ctr) =
c.Offset(0, -1).Value
Ctr = Ctr + 1
End If
Next c
End If
Next i
End Sub
J'ai supposé que l'index couleur était 3 (rouge pétant); pour déterminer
la couleur que tu utilises, positionne-toi sur une cellule rouge et
exécute le code suivant :
Sub QuelleCouleur()
Dim Ctr As Long
MsgBox Selection.Interior.ColorIndex
End Sub
Le cas échéant, remplacecolorindex=3 par le nombre obtenu.
Cordialement.
Daniel
"Olivier Parent Colombel" <laidzone@hotmail.com> a écrit dans le message
de news: O4Olkm%23nFHA.1204@TK2MSFTNGP12.phx.gbl...
Bonjour,
J'ai découvert reccement les fonctions incroyables de ce logiciel. Et
j'aimerais faire deux petites choses (qui peuvent parraitre assez
facile mais que j'ai aucune idée comme faire).
La premiere est de trouver une manière de sortir la date du lundi de la
semaine en cours.
Et la deuxieme (qui est plus compliquée) serait de faire une feuille
où serait consigné toutes les cases avec un formatage spécial de mon
classeur. Je m'explique: par exemple, un document de 4 feuilles avec,
dans ces feuilles, des cases avec des mots écrit en rouge; serait-il
possible d'avoir une cinquième feuille qui enregistrerait toutes ces
cases écrites en rouges automatiquement ? et si possible avec la case à
gauche de cette case en rouge (pour une date par exemple).
Cela me serait utile car je fais mes comptes avec excel et je
désirerais recensser toutes les opérations effectués avec une de mes
cartes de crédit (opérations en rouge avec la date de l'opération à
gauche de la case).
Merci de l'attention portée à mes question,
Olivier P
Regarde le fichier modifié :
http://s52.yousendit.com/d.php?id=1HS2Z9MMV4YS4ZWKMI1WUDWGK
Daniel
"Olivier Parent Colombel" a écrit dans le message
de news: O7HUUo$Merci beaucoup pour la réponse rapide,
La premiere fonction marche super bien, c'est si facile que je suis
stupide de pas y avoir pensé avant.
Pour la deuxième, c'est plus difficile. J'ai des erreurs bizarres quand
je l'execute. J'ai envoyé le fichier sur yousendit.
C'est seulement un petit exemple pour montrer ce que j'aimerais faire.
Donc passer les ligne qui ont le montant en rouge (-4142) de la feuille
"De ici" à celle s'appellant "À là-bas). Le lien est celui-ci:
http://s64.yousendit.com/d.php?id=2KLCSEURJE0WOBK927KY0AUOS
merci beaucoup,
Olivier
"Daniel" a écrit dans le message de news:
enp$UH$Bonjour.
Pour ta première question, la formule peut être :
=AUJOURDHUI()-JOURSEM(AUJOURDHUI();2)+1
Pour la seconde, utilise la macro suivante :
Sub Test()
Dim i As Integer, Plage As Range, c As Range, Ctr As Long
Ctr = 1
For i = 1 To Sheets.Count
If Sheets(i).Name <> "Feuil5" Then
Sheets(i).Select
Set Plage = Range("A1",
Range("A1").SpecialCells(xlCellTypeLastCell))
For Each c In Plage
If c.Interior.ColorIndex = 3 Then
Sheets("Feuil5").Range("B" & Ctr) = c.Value
Sheets("Feuil5").Range("A" & Ctr) =
c.Offset(0, -1).Value
Ctr = Ctr + 1
End If
Next c
End If
Next i
End Sub
J'ai supposé que l'index couleur était 3 (rouge pétant); pour déterminer
la couleur que tu utilises, positionne-toi sur une cellule rouge et
exécute le code suivant :
Sub QuelleCouleur()
Dim Ctr As Long
MsgBox Selection.Interior.ColorIndex
End Sub
Le cas échéant, remplacecolorindex=3 par le nombre obtenu.
Cordialement.
Daniel
"Olivier Parent Colombel" a écrit dans le message
de news: O4Olkm%Bonjour,
J'ai découvert reccement les fonctions incroyables de ce logiciel. Et
j'aimerais faire deux petites choses (qui peuvent parraitre assez
facile mais que j'ai aucune idée comme faire).
La premiere est de trouver une manière de sortir la date du lundi de la
semaine en cours.
Et la deuxieme (qui est plus compliquée) serait de faire une feuille
où serait consigné toutes les cases avec un formatage spécial de mon
classeur. Je m'explique: par exemple, un document de 4 feuilles avec,
dans ces feuilles, des cases avec des mots écrit en rouge; serait-il
possible d'avoir une cinquième feuille qui enregistrerait toutes ces
cases écrites en rouges automatiquement ? et si possible avec la case à
gauche de cette case en rouge (pour une date par exemple).
Cela me serait utile car je fais mes comptes avec excel et je
désirerais recensser toutes les opérations effectués avec une de mes
cartes de crédit (opérations en rouge avec la date de l'opération à
gauche de la case).
Merci de l'attention portée à mes question,
Olivier P
Si tes données occupent les colonnes A à C, remplace :
Set Plage = Range("A1",
Range("A1").SpecialCells(xlCellTypeLastCell))
par :
Set Plage = Range("A1", Range("C65536").End(xlUp))
qui est préférable.
Daniel
"Daniel" a écrit dans le message de news:
uZ$Regarde le fichier modifié :
http://s52.yousendit.com/d.php?id=1HS2Z9MMV4YS4ZWKMI1WUDWGK
Daniel
"Olivier Parent Colombel" a écrit dans le message
de news: O7HUUo$Merci beaucoup pour la réponse rapide,
La premiere fonction marche super bien, c'est si facile que je suis
stupide de pas y avoir pensé avant.
Pour la deuxième, c'est plus difficile. J'ai des erreurs bizarres quand
je l'execute. J'ai envoyé le fichier sur yousendit.
C'est seulement un petit exemple pour montrer ce que j'aimerais faire.
Donc passer les ligne qui ont le montant en rouge (-4142) de la feuille
"De ici" à celle s'appellant "À là-bas). Le lien est celui-ci:
http://s64.yousendit.com/d.php?id=2KLCSEURJE0WOBK927KY0AUOS
merci beaucoup,
Olivier
"Daniel" a écrit dans le message de news:
enp$UH$Bonjour.
Pour ta première question, la formule peut être :
=AUJOURDHUI()-JOURSEM(AUJOURDHUI();2)+1
Pour la seconde, utilise la macro suivante :
Sub Test()
Dim i As Integer, Plage As Range, c As Range, Ctr As Long
Ctr = 1
For i = 1 To Sheets.Count
If Sheets(i).Name <> "Feuil5" Then
Sheets(i).Select
Set Plage = Range("A1",
Range("A1").SpecialCells(xlCellTypeLastCell))
For Each c In Plage
If c.Interior.ColorIndex = 3 Then
Sheets("Feuil5").Range("B" & Ctr) = c.Value
Sheets("Feuil5").Range("A" & Ctr) =
c.Offset(0, -1).Value
Ctr = Ctr + 1
End If
Next c
End If
Next i
End Sub
J'ai supposé que l'index couleur était 3 (rouge pétant); pour
déterminer la couleur que tu utilises, positionne-toi sur une cellule
rouge et exécute le code suivant :
Sub QuelleCouleur()
Dim Ctr As Long
MsgBox Selection.Interior.ColorIndex
End Sub
Le cas échéant, remplacecolorindex=3 par le nombre obtenu.
Cordialement.
Daniel
"Olivier Parent Colombel" a écrit dans le
message de news: O4Olkm%Bonjour,
J'ai découvert reccement les fonctions incroyables de ce logiciel. Et
j'aimerais faire deux petites choses (qui peuvent parraitre assez
facile mais que j'ai aucune idée comme faire).
La premiere est de trouver une manière de sortir la date du lundi de
la semaine en cours.
Et la deuxieme (qui est plus compliquée) serait de faire une feuille
où serait consigné toutes les cases avec un formatage spécial de mon
classeur. Je m'explique: par exemple, un document de 4 feuilles avec,
dans ces feuilles, des cases avec des mots écrit en rouge; serait-il
possible d'avoir une cinquième feuille qui enregistrerait toutes ces
cases écrites en rouges automatiquement ? et si possible avec la case
à gauche de cette case en rouge (pour une date par exemple).
Cela me serait utile car je fais mes comptes avec excel et je
désirerais recensser toutes les opérations effectués avec une de mes
cartes de crédit (opérations en rouge avec la date de l'opération à
gauche de la case).
Merci de l'attention portée à mes question,
Olivier P
Si tes données occupent les colonnes A à C, remplace :
Set Plage = Range("A1",
Range("A1").SpecialCells(xlCellTypeLastCell))
par :
Set Plage = Range("A1", Range("C65536").End(xlUp))
qui est préférable.
Daniel
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
uZ$labAoFHA.2180@TK2MSFTNGP15.phx.gbl...
Regarde le fichier modifié :
http://s52.yousendit.com/d.php?id=1HS2Z9MMV4YS4ZWKMI1WUDWGK
Daniel
"Olivier Parent Colombel" <laidzone@hotmail.com> a écrit dans le message
de news: O7HUUo$nFHA.764@TK2MSFTNGP14.phx.gbl...
Merci beaucoup pour la réponse rapide,
La premiere fonction marche super bien, c'est si facile que je suis
stupide de pas y avoir pensé avant.
Pour la deuxième, c'est plus difficile. J'ai des erreurs bizarres quand
je l'execute. J'ai envoyé le fichier sur yousendit.
C'est seulement un petit exemple pour montrer ce que j'aimerais faire.
Donc passer les ligne qui ont le montant en rouge (-4142) de la feuille
"De ici" à celle s'appellant "À là-bas). Le lien est celui-ci:
http://s64.yousendit.com/d.php?id=2KLCSEURJE0WOBK927KY0AUOS
merci beaucoup,
Olivier
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
enp$UH$nFHA.3936@TK2MSFTNGP10.phx.gbl...
Bonjour.
Pour ta première question, la formule peut être :
=AUJOURDHUI()-JOURSEM(AUJOURDHUI();2)+1
Pour la seconde, utilise la macro suivante :
Sub Test()
Dim i As Integer, Plage As Range, c As Range, Ctr As Long
Ctr = 1
For i = 1 To Sheets.Count
If Sheets(i).Name <> "Feuil5" Then
Sheets(i).Select
Set Plage = Range("A1",
Range("A1").SpecialCells(xlCellTypeLastCell))
For Each c In Plage
If c.Interior.ColorIndex = 3 Then
Sheets("Feuil5").Range("B" & Ctr) = c.Value
Sheets("Feuil5").Range("A" & Ctr) =
c.Offset(0, -1).Value
Ctr = Ctr + 1
End If
Next c
End If
Next i
End Sub
J'ai supposé que l'index couleur était 3 (rouge pétant); pour
déterminer la couleur que tu utilises, positionne-toi sur une cellule
rouge et exécute le code suivant :
Sub QuelleCouleur()
Dim Ctr As Long
MsgBox Selection.Interior.ColorIndex
End Sub
Le cas échéant, remplacecolorindex=3 par le nombre obtenu.
Cordialement.
Daniel
"Olivier Parent Colombel" <laidzone@hotmail.com> a écrit dans le
message de news: O4Olkm%23nFHA.1204@TK2MSFTNGP12.phx.gbl...
Bonjour,
J'ai découvert reccement les fonctions incroyables de ce logiciel. Et
j'aimerais faire deux petites choses (qui peuvent parraitre assez
facile mais que j'ai aucune idée comme faire).
La premiere est de trouver une manière de sortir la date du lundi de
la semaine en cours.
Et la deuxieme (qui est plus compliquée) serait de faire une feuille
où serait consigné toutes les cases avec un formatage spécial de mon
classeur. Je m'explique: par exemple, un document de 4 feuilles avec,
dans ces feuilles, des cases avec des mots écrit en rouge; serait-il
possible d'avoir une cinquième feuille qui enregistrerait toutes ces
cases écrites en rouges automatiquement ? et si possible avec la case
à gauche de cette case en rouge (pour une date par exemple).
Cela me serait utile car je fais mes comptes avec excel et je
désirerais recensser toutes les opérations effectués avec une de mes
cartes de crédit (opérations en rouge avec la date de l'opération à
gauche de la case).
Merci de l'attention portée à mes question,
Olivier P
Si tes données occupent les colonnes A à C, remplace :
Set Plage = Range("A1",
Range("A1").SpecialCells(xlCellTypeLastCell))
par :
Set Plage = Range("A1", Range("C65536").End(xlUp))
qui est préférable.
Daniel
"Daniel" a écrit dans le message de news:
uZ$Regarde le fichier modifié :
http://s52.yousendit.com/d.php?id=1HS2Z9MMV4YS4ZWKMI1WUDWGK
Daniel
"Olivier Parent Colombel" a écrit dans le message
de news: O7HUUo$Merci beaucoup pour la réponse rapide,
La premiere fonction marche super bien, c'est si facile que je suis
stupide de pas y avoir pensé avant.
Pour la deuxième, c'est plus difficile. J'ai des erreurs bizarres quand
je l'execute. J'ai envoyé le fichier sur yousendit.
C'est seulement un petit exemple pour montrer ce que j'aimerais faire.
Donc passer les ligne qui ont le montant en rouge (-4142) de la feuille
"De ici" à celle s'appellant "À là-bas). Le lien est celui-ci:
http://s64.yousendit.com/d.php?id=2KLCSEURJE0WOBK927KY0AUOS
merci beaucoup,
Olivier
"Daniel" a écrit dans le message de news:
enp$UH$Bonjour.
Pour ta première question, la formule peut être :
=AUJOURDHUI()-JOURSEM(AUJOURDHUI();2)+1
Pour la seconde, utilise la macro suivante :
Sub Test()
Dim i As Integer, Plage As Range, c As Range, Ctr As Long
Ctr = 1
For i = 1 To Sheets.Count
If Sheets(i).Name <> "Feuil5" Then
Sheets(i).Select
Set Plage = Range("A1",
Range("A1").SpecialCells(xlCellTypeLastCell))
For Each c In Plage
If c.Interior.ColorIndex = 3 Then
Sheets("Feuil5").Range("B" & Ctr) = c.Value
Sheets("Feuil5").Range("A" & Ctr) =
c.Offset(0, -1).Value
Ctr = Ctr + 1
End If
Next c
End If
Next i
End Sub
J'ai supposé que l'index couleur était 3 (rouge pétant); pour
déterminer la couleur que tu utilises, positionne-toi sur une cellule
rouge et exécute le code suivant :
Sub QuelleCouleur()
Dim Ctr As Long
MsgBox Selection.Interior.ColorIndex
End Sub
Le cas échéant, remplacecolorindex=3 par le nombre obtenu.
Cordialement.
Daniel
"Olivier Parent Colombel" a écrit dans le
message de news: O4Olkm%Bonjour,
J'ai découvert reccement les fonctions incroyables de ce logiciel. Et
j'aimerais faire deux petites choses (qui peuvent parraitre assez
facile mais que j'ai aucune idée comme faire).
La premiere est de trouver une manière de sortir la date du lundi de
la semaine en cours.
Et la deuxieme (qui est plus compliquée) serait de faire une feuille
où serait consigné toutes les cases avec un formatage spécial de mon
classeur. Je m'explique: par exemple, un document de 4 feuilles avec,
dans ces feuilles, des cases avec des mots écrit en rouge; serait-il
possible d'avoir une cinquième feuille qui enregistrerait toutes ces
cases écrites en rouges automatiquement ? et si possible avec la case
à gauche de cette case en rouge (pour une date par exemple).
Cela me serait utile car je fais mes comptes avec excel et je
désirerais recensser toutes les opérations effectués avec une de mes
cartes de crédit (opérations en rouge avec la date de l'opération à
gauche de la case).
Merci de l'attention portée à mes question,
Olivier P
