OVH Cloud OVH Cloud

Ingnorer les cellules vides

14 réponses
Avatar
RT
Bonjour à toutes et à tous

Le titre choisi n'est pas très précis et peut-être même éronné

Ce que je cherche à faire est ceci

En colonne A des dates en colonne B des dépenses en colonne C des
recettes

Je voudrais sur une autre feuille avoir juste les recettes

Je paux le faire avec la fonction SI mais cela me laisse des lignes vides et
je voudrais que tout se suive

Par exemple

Feuille Globale

A B C

1/1/05 500
2/1/05 45
5/1/05 35
7/1/05 25
12/1/05 55
19/1/05 35

En feuille Recettes je voudrais

A B

5/1/05 35
12/1/05 55
19/1/05 35

Un grand merci à tous

Rex (qui coince sur une connerie)

:-((((((((((

10 réponses

1 2
Avatar
RT
Bonjour

J'ai bien mangé, bien bu, bien dormi
Et maintenant que je suis frais et dispo
y a quand même un truc que je ne comprends pas

Si je laisse la ligne Date = Activ......

Cela joue avec les réglage du PC (la date change)
Et si je supprime cette ligne
la macro ne donne pas de résultats sur la feuille "Recettes"

Est-ce que tu as une idée de ce qui se passe?
Si cela peut aider je peux facilement me contenter de copier la colonne "C"
avec la macro
pour la colonne date je peux facilement le faire par formule dans le genre

=IF(Globale!A4=0;A3;Globale!A4)
Ce qui me donne une colonne avec la date de la dernière transaction (c'est
pas nickel, mais ce n'est pas un truc professionel que je fais non plus)



Merci et à tantôt

Rex


"OnE" wrote in message
news:
Attention toutefois à l'emploi de Date, qui est un mot reservé par VB et
qui

change la date du système ... Comme quoi faut pas prendre ses noms de
variables à la légère.

Je me demandais pourquoi j'étais revenu en janvier 2005 :)


Bonjour

Dans le temps (Oh! Il y a déjà plus de 15 ans) il y avait une pub pour
un


déodorisant "comme ils disent" à la TV

Ou le type criat à la fin



!!!!!!!!!!!!!!! CA MARCHE !!!!!!!!!

Et ben ici, même si ça ne sentait pas mauvais , ben


!!!!!!!!!!!!!!!! CA MARCHE !!!!!!!!!!


Maintenant je n'ai plus qu'à l'adapter, tu pense bien que ce n'est
qu'une


partie du problème

Enfin je continue et si j'ai besoin d'aide je ferai encore et toujours
appel


au groupe


Encore merci et à bientôt

Rex :-)))))))))))))


"OnE" a écrit dans le message news:

Sub recup()
Sheets("Recettes").Select
Range("A1").Select
Sheets("Globale").Select
Range("C1").Select
Do While Not (IsEmpty(ActiveCell.Offset(0, -2)))
If Not (IsEmpty(ActiveCell)) Then
Date = ActiveCell.Offset(0, -2).Value
recette = ActiveCell.Value
Sheets("recettes").Select
ActiveCell.Value = Date
ActiveCell.Offset(0, 1).Value = recette
Selection.Offset(1, 0).Select
Sheets("globale").Select
End If
Selection.Offset(1, 0).Select
Loop
End Sub


Bonjour à toutes et à tous

Le titre choisi n'est pas très précis et peut-être même éronné

Ce que je cherche à faire est ceci

En colonne A des dates en colonne B des dépenses en colonne
C




des
recettes

Je voudrais sur une autre feuille avoir juste les recettes

Je paux le faire avec la fonction SI mais cela me laisse des lignes
vides et


je voudrais que tout se suive

Par exemple

Feuille Globale

A B C

1/1/05 500
2/1/05 45
5/1/05
35




7/1/05 25
12/1/05
55




19/1/05
35





En feuille Recettes je voudrais

A B

5/1/05 35
12/1/05 55
19/1/05 35

Un grand merci à tous

Rex (qui coince sur une connerie)

:-((((((((((
















Avatar
RT
Bonjour

J'ai bien mangé, bien bu, bien dormi
Et maintenant que je suis frais et dispo
y a quand même un truc que je ne comprends pas

utilisé comme tel il change le paramètrage de la machine (la date)
mais si je supprime cette ligne ( Date = ActiveCell.........)
La macro tourne et ne fait rien

Est-ce que tu as une idée?

Pour te faciliter la vie je peux facilement me passer de la copie de la
colone "A"
et puis à l'aide de la fonction IF la remplir si la colonne "B" ou "C" est
remplie

A bientôt et encore merci

Rex (qui rame dur, mais qui persévère et qui avance sur cette mer qu'est le
VBA)




"OnE" wrote in message
news:
Attention toutefois à l'emploi de Date, qui est un mot reservé par VB et
qui

change la date du système ... Comme quoi faut pas prendre ses noms de
variables à la légère.

Je me demandais pourquoi j'étais revenu en janvier 2005 :)


Bonjour

Dans le temps (Oh! Il y a déjà plus de 15 ans) il y avait une pub pour
un


déodorisant "comme ils disent" à la TV

Ou le type criat à la fin



!!!!!!!!!!!!!!! CA MARCHE !!!!!!!!!

Et ben ici, même si ça ne sentait pas mauvais , ben


!!!!!!!!!!!!!!!! CA MARCHE !!!!!!!!!!


Maintenant je n'ai plus qu'à l'adapter, tu pense bien que ce n'est
qu'une


partie du problème

Enfin je continue et si j'ai besoin d'aide je ferai encore et toujours
appel


au groupe


Encore merci et à bientôt

Rex :-)))))))))))))


"OnE" a écrit dans le message news:

Sub recup()
Sheets("Recettes").Select
Range("A1").Select
Sheets("Globale").Select
Range("C1").Select
Do While Not (IsEmpty(ActiveCell.Offset(0, -2)))
If Not (IsEmpty(ActiveCell)) Then
Date = ActiveCell.Offset(0, -2).Value
recette = ActiveCell.Value
Sheets("recettes").Select
ActiveCell.Value = Date
ActiveCell.Offset(0, 1).Value = recette
Selection.Offset(1, 0).Select
Sheets("globale").Select
End If
Selection.Offset(1, 0).Select
Loop
End Sub


Bonjour à toutes et à tous

Le titre choisi n'est pas très précis et peut-être même éronné

Ce que je cherche à faire est ceci

En colonne A des dates en colonne B des dépenses en colonne
C




des
recettes

Je voudrais sur une autre feuille avoir juste les recettes

Je paux le faire avec la fonction SI mais cela me laisse des lignes
vides et


je voudrais que tout se suive

Par exemple

Feuille Globale

A B C

1/1/05 500
2/1/05 45
5/1/05
35




7/1/05 25
12/1/05
55




19/1/05
35





En feuille Recettes je voudrais

A B

5/1/05 35
12/1/05 55
19/1/05 35

Un grand merci à tous

Rex (qui coince sur une connerie)

:-((((((((((
















Avatar
RT
Bonjour "Speedy Gonzales"

J'essaye et je constate que cela fonctionne
Et je te remercie

Encore quelques bidouillage par-ci par-là et ma petite feuille sera au point


Autre chose, je ne sais pas si c'est mon PC ou Microsoft
mais quand la date de mon PC est dans le future (par ex. le 25 juin 2005)
et que je fait fait une remise à jour sur le groupe il n'y a aucun nouveau
message
Je comprendrais qu'il ne lise pas les dates si la date PC était en retard
(par ex. 25 février 2005) mais pas le contraire

Enfin ceci est hors sujet et ne me tracasse pas du tout, mais là alors pas
du tout, du tout, du tout

Encore merci et sûrement à bientôt dans une autre ficelle

Rex :-))))))))))



"AV" wrote in message
news:
y a quand même un truc que je ne comprends pas

Si je laisse la ligne Date = Activ......
Cela joue avec les réglage du PC (la date change)


Ben évidemment car tu réinitialises chaque fois la date système !
Le terme "Date" est à aboslument proscrire !
Remplace le (par ex).par "laDate"

Par ailleurs la kyrielle de "select", mais bon... je me suis déjà prononcé
la-dessus..
PS : Profite en pour remettre ta pendule à l'heure...
AV





Avatar
RT
Bonjour

Honte sur moi

Avé AV, celui qui mourir de honte te salue

Je constate avec effroi, horreur et stupéfaction que j'ai omis de répondre à
ton message encourageur et plein de sagesse

J'ai brisé tous les mirroires, cassé tous les carreaux, jamais je ne
pourrais me regarder en face (de profile oui, et même de dos)

MERCI pour ton intervention bienveillante, chaleureuse, breve et concise
(c'est pas comme moi)

Plus à plat ventre que cela pour présenter mes excuses je peux pas
(rhumatisme, lumbago, arthrose, lâcheté, fénéantise tu as le choix)

Encore merci et à bientôt

D'autant plus que je lis régulièrement ta prose (et ça c'est vrai!)

Rex

"AV" wrote in message
news:
y a quand même un truc que je ne comprends pas

Si je laisse la ligne Date = Activ......
Cela joue avec les réglage du PC (la date change)


Ben évidemment car tu réinitialises chaque fois la date système !
Le terme "Date" est à aboslument proscrire !
Remplace le (par ex).par "laDate"

Par ailleurs la kyrielle de "select", mais bon... je me suis déjà prononcé
la-dessus..
PS : Profite en pour remettre ta pendule à l'heure...
AV





Avatar
Daniel
Bonjour.
Sans doute veux-tu que la mise à jour de la seconde feuille se fasse
dynamiquement ?
Sinon tu fais un filtre automatique avec "cellules non vides" dans la
colonne "dépenses", et tu copies les cellules visibles (Edition / Atteindre
/ Cellules / Cellules visibles seulement).
Cordialement.
Daniel
"RT" a écrit dans le message de news:

Bonjour à toutes et à tous

Le titre choisi n'est pas très précis et peut-être même éronné

Ce que je cherche à faire est ceci

En colonne A des dates en colonne B des dépenses en colonne C des
recettes

Je voudrais sur une autre feuille avoir juste les recettes

Je paux le faire avec la fonction SI mais cela me laisse des lignes vides
et
je voudrais que tout se suive

Par exemple

Feuille Globale

A B C

1/1/05 500
2/1/05 45
5/1/05 35
7/1/05 25
12/1/05 55
19/1/05 35

En feuille Recettes je voudrais

A B

5/1/05 35
12/1/05 55
19/1/05 35

Un grand merci à tous

Rex (qui coince sur une connerie)

:-((((((((((






Avatar
RT
Bonjour et merci pour ton aide

Et oui je voudrais bien quelques chose de dynamique!!! :-))))) dit-il avec
un grand sourrire

Et je voudrais que toute la ligne soit copier si la cellule en B est pleine
Si la cellule en B est vide que toute la ligne soit ignorée
Et que pour la cellule B suivante occupée toute la ligne soit copier dans la
première ligne vide et pas dans la ligne relative à la feuille d'origine

J'espère que c'est assez claire

Merci encore et à bientôt

Rex



"Daniel" wrote in message
news:#
Bonjour.
Sans doute veux-tu que la mise à jour de la seconde feuille se fasse
dynamiquement ?
Sinon tu fais un filtre automatique avec "cellules non vides" dans la
colonne "dépenses", et tu copies les cellules visibles (Edition /
Atteindre

/ Cellules / Cellules visibles seulement).
Cordialement.
Daniel
"RT" a écrit dans le message de news:

Bonjour à toutes et à tous

Le titre choisi n'est pas très précis et peut-être même éronné

Ce que je cherche à faire est ceci

En colonne A des dates en colonne B des dépenses en colonne C
des


recettes

Je voudrais sur une autre feuille avoir juste les recettes

Je paux le faire avec la fonction SI mais cela me laisse des lignes
vides


et
je voudrais que tout se suive

Par exemple

Feuille Globale

A B C

1/1/05 500
2/1/05 45
5/1/05 35
7/1/05 25
12/1/05 55
19/1/05 35

En feuille Recettes je voudrais

A B

5/1/05 35
12/1/05 55
19/1/05 35

Un grand merci à tous

Rex (qui coince sur une connerie)

:-((((((((((










Avatar
OnE
Sub recup()
Sheets("Recettes").Select
Range("A1").Select
Sheets("Globale").Select
Range("C1").Select
Do While Not (IsEmpty(ActiveCell.Offset(0, -2)))
If Not (IsEmpty(ActiveCell)) Then
Date = ActiveCell.Offset(0, -2).Value
recette = ActiveCell.Value
Sheets("recettes").Select
ActiveCell.Value = Date
ActiveCell.Offset(0, 1).Value = recette
Selection.Offset(1, 0).Select
Sheets("globale").Select
End If
Selection.Offset(1, 0).Select
Loop
End Sub


Bonjour à toutes et à tous

Le titre choisi n'est pas très précis et peut-être même éronné

Ce que je cherche à faire est ceci

En colonne A des dates en colonne B des dépenses en colonne C des
recettes

Je voudrais sur une autre feuille avoir juste les recettes

Je paux le faire avec la fonction SI mais cela me laisse des lignes vides et
je voudrais que tout se suive

Par exemple

Feuille Globale

A B C

1/1/05 500
2/1/05 45
5/1/05 35
7/1/05 25
12/1/05 55
19/1/05 35

En feuille Recettes je voudrais

A B

5/1/05 35
12/1/05 55
19/1/05 35

Un grand merci à tous

Rex (qui coince sur une connerie)

:-((((((((((







Avatar
OnE
Attention toutefois à l'emploi de Date, qui est un mot reservé par VB et qui
change la date du système ... Comme quoi faut pas prendre ses noms de
variables à la légère.

Je me demandais pourquoi j'étais revenu en janvier 2005 :)


Bonjour

Dans le temps (Oh! Il y a déjà plus de 15 ans) il y avait une pub pour un
déodorisant "comme ils disent" à la TV

Ou le type criat à la fin



!!!!!!!!!!!!!!! CA MARCHE !!!!!!!!!

Et ben ici, même si ça ne sentait pas mauvais , ben


!!!!!!!!!!!!!!!! CA MARCHE !!!!!!!!!!


Maintenant je n'ai plus qu'à l'adapter, tu pense bien que ce n'est qu'une
partie du problème

Enfin je continue et si j'ai besoin d'aide je ferai encore et toujours appel
au groupe


Encore merci et à bientôt

Rex :-)))))))))))))


"OnE" a écrit dans le message news:

Sub recup()
Sheets("Recettes").Select
Range("A1").Select
Sheets("Globale").Select
Range("C1").Select
Do While Not (IsEmpty(ActiveCell.Offset(0, -2)))
If Not (IsEmpty(ActiveCell)) Then
Date = ActiveCell.Offset(0, -2).Value
recette = ActiveCell.Value
Sheets("recettes").Select
ActiveCell.Value = Date
ActiveCell.Offset(0, 1).Value = recette
Selection.Offset(1, 0).Select
Sheets("globale").Select
End If
Selection.Offset(1, 0).Select
Loop
End Sub


Bonjour à toutes et à tous

Le titre choisi n'est pas très précis et peut-être même éronné

Ce que je cherche à faire est ceci

En colonne A des dates en colonne B des dépenses en colonne C
des


recettes

Je voudrais sur une autre feuille avoir juste les recettes

Je paux le faire avec la fonction SI mais cela me laisse des lignes
vides et


je voudrais que tout se suive

Par exemple

Feuille Globale

A B C

1/1/05 500
2/1/05 45
5/1/05 35
7/1/05 25
12/1/05 55
19/1/05 35

En feuille Recettes je voudrais

A B

5/1/05 35
12/1/05 55
19/1/05 35

Un grand merci à tous

Rex (qui coince sur une connerie)

:-((((((((((














Avatar
AV
Pour le smilblick...
Tu pourrais supprimer un gros paquet de "Select" dans ton code, car ils
ralentissent inutilement la chose !
Nul besoin de sélectionner pour "agir"..

AV
Avatar
AV
y a quand même un truc que je ne comprends pas

Si je laisse la ligne Date = Activ......
Cela joue avec les réglage du PC (la date change)


Ben évidemment car tu réinitialises chaque fois la date système !
Le terme "Date" est à aboslument proscrire !
Remplace le (par ex).par "laDate"

Par ailleurs la kyrielle de "select", mais bon... je me suis déjà prononcé
la-dessus..
PS : Profite en pour remettre ta pendule à l'heure...
AV

1 2