difference date heure

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

Bonsoir,

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

Je ferai ceci :

Code:

---

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

---

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

Tremens

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:

---

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

---

code de ton bouton actualisé

Tremens

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

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

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

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:

---

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

---

mais la formule n'existe pa dans ton code

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:

---

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:

---

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:

---

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

---

la ligne devient :

Code:

---

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

---

bonjour zerka00,

voici un exemple :

Code:

---

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