Discussion :

[zerka00]

bnsoir
j'ai un petit souci je voudrai faire la difference entre deux colonnes date/ heue
mon fichier se presente de la facon suivante
col 1 col2 col3
date/heure1 date/heure2 differene col2-col1

et je voudrai qd j'ai pas de date/heure inscrite dans la ligne 2 qu'il laisse la col3 vide
je sais le faire sans macro mais je voudrai savoir si qq1 sait le fair avec un code vb.
merci

[tremens]

Bonsoir,

je ne voie pas d'intérêt à faire une macro pour cette opération.

Je ferai ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(A1="";"";A1-B1)

Voilà reste plus qu'à copier la formule sur toute ta colonne 3.

Tremens

[zerka00]

merci pour réponse

Ok fait j'ai déjà un programme dans ma feuille et un bouton pour actualiser le programme le problème quand j'appuie sur le bouton je perds le calcul de la colonne 3 je voudrais avoir le code pour l'insérer dans mon programme.

La formule que je tape pour mettre la différence est la suivante : dans la cellule colonne 3

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=ENT(F2-D1)&"jours"& TEXTE(MOD(F2-D1;1);"[hh]:mm")

[tremens]

code de ton bouton actualisé

Tremens

[zerka00]

Il n'a aucun rapport avec ce calcul c'est pour récupérer des données des autres feuilles.

[tremens]

ok, mais ton calcul marche t-il sans faire une actualisation avec ton bouton?

[zerka00]

Oui tres bien je veux juste leralier sur l'ensemble de la colonne et l'inserer dans mon code

je veux juste l'appliquer sur l'ensemble de la colonne

[tremens]

comme ça je ne peut rien...je pense que ça viens de ton bouton (code) ou alors j'ai rien compris...

Attends qu'un pro du vba réponde

Il faut peut-être faire une boucle pour le propager dans toute ta colonne...

Tremens

essaye ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
ligne = Workbooks(tonfichier).Worksheets("Feuil1").Cells(Rows.Count, "a").End(xlUp).Row
L1 = Workbooks(tonfichier).Worksheets("Feuil1").Range("c1").formulalocal
Workbooks(tonfichier).Worksheets("Feuil1").Range(Cells(2, 3), Cells(ligne,3)) = L1

[zerka00]

mais la formule n'existe pa dans ton code

[tremens]

je ne maitrise pas le vba, mais il faut récupérer la formule de la cellule qui marche pour ensuite la propager à la colonne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

L1 = workbooks(tonfichier).Worksheets("Feuil1").Range("c1").formulalocal

prend la formule de la première ligne qui marche, enfin je crois.

tu devrais fouiner par la...

Tremens

si ta cellule C3 a la formule qui marche, il reste plus qu'a la sélectionner :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Cells(1, 3).Select
ActiveCell.FormulaR1C1 = "ENT(F2-D1)&"jours"& TEXTE(MOD(F2-D1;1);"[hh]:mm") "
    
Selection.AutoFill Destination:=Range(Cells(2,3), Cells(ligne, 3)), Type:=xlFillDefault

En rouge, il faut changer les valeur de tes cellules en R1C1, la meilleur façon est de lancer un enregistrement de macro en faisant le copier et ensuite le coller dans toute la colonne puis ensuite d'aller voir ce qu'à donné le code généré:

en partant de la cellule G2, on obtient en faisant F2-D1:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=RC[-1]-R[-1]C[-3]

la ligne devient :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Cells(2, 3).Select
ActiveCell.FormulaR1C1 = "ENT(=RC[-1]-R[-1]C[-3]
)&"jours"& TEXTE(MOD(=RC[-1]-R[-1]C[-3]
;1[/COLOR]);"[hh]:mm") "
 
Selection.AutoFill Destination:=Range(Cells(3, 7), Cells(ligne, 7)), Type:=xlFillDefault

[sabzzz]

bonjour zerka00,

voici un exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i = 1 To 3
If IsDate(Range("A" & i)) And IsDate(Range("B" & i)) Then Range("C" & i) = Format(Range("A" & i) - Range("B" & i), "hh:mm")
Next

isabelle