Bonjour et merci Mth c'est bon on a bien le bornage du mois.

Par contre j'essaye en entrée de MACRO d'avoir le mois en cours par exemple aujourd'hui c'est le 6 ( Juin ), je doit faire une bourde car il me renvoi 12 ?

M1 = Month(M)
MsgBox M1

Il me renvoi = 12

Encore un grand merci pour ta disponibilité.

Cdt.

Bonjour à toutes et tous, comme il pleut un peu ?, je me remet sur EXCEL VBA.

Y a t'il une façon simple de comparer le mois en cour.
Voila je veux saisir une date dans la cellule A1 (format date jj/mm/aaaa)

il ne faudrait pas qu'il soit possible de saisir par exemple : 01/07/2012
alors que le mois en cours est Juin(06) idem pour l'année.
par exemple 01/06/2011 alors que l'on est en 2012

Sinon peut t'on saisir rien que le jour et remplacer dans la cellule de saisie la date complete avec le jour saisie, le mois et l'année en cours.

J'ai essayé mais je suis en train de monter des formules XXL et je crois que je délire.

Encore un grand merci a tous le monde

Bonjour tout le monde, merci beaucoup Mth je me doutait du coup, mais je suis teigneux, enfin ta soluce est tout a fait O.K, un grand merci

Cordialement.

Bonjour a toutes et tous.

Je suis trés bête je pense ou trés fatigué, voila mon souci, dans ma feuille de calcul

en C6 je met ma formule de façon à calculer de C7 à la fin de la colonne car je ne peux déterminer quelles sont les cellules avec une valeur.

en C6 je met =SOMME(C7:C) et bien sur je plante.
je ne peut pas mettre =SOMME(C;C) car je prend mon total avec C6, donc en dehors de mettre mon calcul dans une autre cellule ce que je peut faire il faut vraiment que je demarre en C7 ???

D'avance merci pour vos idées ( et mes excuses fatigué ).

Cordialement. 

Bonjour,

Je vient de comprendre et ceci grâce à toi, un grand merci pour ta disponibilité et ta gentillesse

Je vous souhaite à toutes et tous un bon WEEK.

Cordialement.

Bonjour,
Merci beaucoup cela fonctionne, mais j'ai pas compris l'astuce ???

Y'a t'il un probléme avec les références relatives ?, avant l'erreur n'était pas détectée.

Sans abusé car j'ai pas capté, sous mon autre appli même soucis et pourtant mon code semble correct :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("F11:G11")) Is Nothing Then
        If Range("F11") <> "O" Then
           Range("G11") = "N"
        End If
    End If
    If Not Application.Intersect(Target, Range("H11:I11")) Is Nothing Then
        If Range("H11") <> "O" Then
            Range("I11") = "N"
        End If
    End If
   
End Sub

Merci d'avance pour votre aide.

Le mDFcalendar c'est O.K sous EXCEL10

Cordialement, bon courage à tous.

Bonjour a tous,

Quelqu'un peut'il me donner un coup de main, d'avance merci a tous et bon courage


Mon patron ma imposer EXCEL10 alors que j'étais sur EXCEL7
Maintenant j'ai un probléme avec mes applications avec les listes déroulante dans les cellules

Si je fait mon choix avec la liste ça plante, si je tape directement mon choix dans la cellule
ça marche.

Le plantage c'est :

La méthode '-Default' de l'objet 'RANGE' à échoué
Erreur d'exécution '-2147417848(80010108)'

Je n'arrive pas a comprendre et a DEBOGUER, de plus je n'arrive pas à virer le mot de passe que j'avais mis.

PASS=MDS

Re.bonjour,

Par l'index je trouve pas, car je ne sais pas comment formuler ma demande.

Voila je voudrais que la cellule D3 prenne la même valeur que B3 dans une MACRO

par exemple  :

D3 = valeur de B3


Merci d'avance à tous.

Cdt.

Bonjour,

J'ai trouvé.
j'ai mis dans la macro.

Range("B10").Select
    ActiveCell.Value = StrConv(ActiveCell.Value, vbUpperCase)

Bjr,
Je retente ou je ferme le sujet, apparement je ne peux pas envoyer des fichiers.