[XL-2007] Incrémentation dates dans onglets générés automatiquement sujet

Bonjour à toutes et à tous.

J'ai fait un petit code vba pour dupliquer automatiquement le contenu d'un onglet (onglet J1 du fichier ORGANISATION VACANCES ETE). Pour chacun des onglets dupliqués, la date contenu dans la cellule A1 doit s'incrémenter de un jour à chaque fois.
Ex: la cellule A1 de l'onglet J1 contient la valeur "mardi 08 avril 2014". Je duplique 3 fois l'onglet; j'ai alors les onglets J2, J3, J4 qui se créent; et je devrais avoir la valeur "mercredi 09 avril 2014" en A1 de l'onglet J2, "jeudi 10 avril 2014" en A1 de l'onglet J3 et "vendredi 11 avril 2014" en A1 de l'onglet J4.
Or ça n'est pas tout à fait le cas.... d'où vient l'erreur dans mon code?

Sub Copie()
Dim i, z, Valeur_A_Recup
z = InputBox("Nombre de copies ", "Copie")
Valeur_A_Recup = Sheets("J1").Range("A1").Value
For i = 1 To z
Sheets("J1").Copy After:=Sheets(i)
ActiveSheet.Name = "J" & i + 1
Sheets("J" & i).Range("A1").Value = Valeur_A_Recup + i
Next i
End Sub


Merci de votre aide.

Fichiers attachés

• 
  
  CAHIER VACANCES.zip
  (49,7 Ko)
  

[AC-2007] Les dates en arabe (présumé et fixe) sujet

Salut les amis ;
Je sollicite votre aide au sujet d’une base de données que je viens de crée ; celle-ci comporte ,parmi ses champs, un champ ayant comme nom « DteNaissance » ; cette date sera stockée dans un formulaire, et un état, pour être ensuite imprimé.
Le problème qui se pose c’est que ; chez nous en Algérie ; il y a des personnes qui sont nées durant l’année donc, leurs dates de naissance doivent être (affichées et imprimées), par exemple pour 1940, ainsi ( عام 1940),
Or à cet effet, une idée m'est venue à l'esprit ! elle consiste à modifier la valeur du champ DteNaissance, et ceci lorsque l'utilisateur tape 00/00/1940 dans le formulaire basé sur la table, ce champ soit modifiée pour donner ceci 'عام 1940' (il reprend en quelque sorte l'année uniquement la précédant par le mot 'عام' qui veut dire en français 'année' ) 1
Qu'en dites-vous ? s'il vous plait éclairez moi...
Merci d’avance.

1- Même si l'idée est juste, mais comment s'y prendre ! 8O

XL 2013 STP de l'aide pour Calculer le nombre de données selon deux dates (Excel VBA) sujet

Bonjour tout le monde,

j'ai une feuille (feuille1) Excel dans laquelle contient beaucoup de données qu'on rempli au fur et à mesure dans le temps. Dans la feuille 2 je veux calculer le nombre de chaque catégorie entre deux dates. Dans la feuille 2, j'aimerai indiquer deux date et la micro irait calculer tout ce qui se trouve entre ces deux dates et selon la catégorie. Est ce que je pourrai avoir votre aide précieuse pour créer une macro qui ferai ce calcul.

Prener en note que dans la feuille 1, je vais continuer à ajouter des lignes. les types et nature sont déjà définis et seront les mêmes, les dates et coûts vont changer

j'ai joint mon fichier excel

Merci encore!

Kat

Fichiers attachés

• 
  
  Classeur1.xlsx‎
  (9,2 Ko)