Bjr.

J'essaye de mettre ma piéce jointe ??..//.??N

excuses

Bonjour,

J'essaye de mettre au point un tableau
il faut que les info saisie en B10 soit en MAJUSCULE
Car j'ai une fonction recherche
J'utilise dans la feuil1 :

 Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B10: B30")) Is Nothing Then Target = UCase(Target)
End Sub

Quand je passe dans la MACRO Update01 tout va bien, mais quand je remet à blanc ma ligne B10:F10 je plante en Erreur d'éxécution. 
Comment faire je trouve pas l'astuce.

je met en piéce jointe mon appli

D'avance merci a tous pour votre concours.

Cordialement 

Bonjour,

Excuse moi mais ta solution fonctionne trés bien, si ma petite tête ?????.

En fait en allant dans option et mettant calcul automatique c'est bon.

Encore merci, je cloture.

Cordialement. 

Bonjour Didier,

Cette solution ne fonctionne pas, je pourrais le faire en VBA mais je pensais que le paramêtre dans la fonction SOMME suivait soit en insert de ligne, soit en delete.

Je remet l'appli en piéce jointe  

Bonjour,

J'ai mis du temps à fermer le sujet et je m'en excuse.
 
Merci MYA c'est O.K.

Cordialement.

Bonjour a toutes et tous.

Mon soucis du jour c'est la fonction SOMME dans une cellule de la feuil1 qui totalise les données de la colonne L de la feuille BDDNE du même classeur.

Au départ ça va, dans ma cellule (Feuil1!F15) il y a :
=SOMME(BDDNE!L1:L65536).
Quand j'ai fait ma saisie et mon UPDATE ( CTRL U), la ligne est bien recopiée dans BDDNE.
Mais aprés je me retrouve avec  dans ma cellule (Feuil1!F15) = SOMME(BDDNE!L2:L65536). donc le résultat est faux.
Bien sur si je rajoute encore une ligne cela passe a L3 etc...
Le but c'est chaque fois que je rajoute une ligne c'est qu'il me prenne toutes les valeurs de la colonne L et faire le total ( après je doit faire la même chose avec M, N, O ,P).
Quelqu'un peut me dire ou je gaffe.
En fichier joint mon appli.
D'avance merci.

Bonjour a toutes et tous

Ben alors qu'elle class, merci mDF et Jean-Marie, les deux fonctionnent.

Pour le moment avec la soluce mDF c'est O.K, et celle de Jean-Marie me sert pour un autre test dans mon projet.

Encore merci a tous.

Bonjour MDF.

Merci de donner un peut de ton temps pour ce soucis.

Je souhaite au moment de la saisie dans B1 que la personne ne puisse pas mettre "O" dans cette cellule, si A1 est a "N",
Par dèfaut A1 et B1 sont a "N".
Donc:
Si A1 est à "N" B1 ne peut être à "O"
Si A1 est à "O" B1 peut être "O" ou "N"
Si B1 est saisie en premier B1 est à "O" donc A1 est a "O"  

J'ai mis cette formule dans B1 avec l'option FONCTION.

Peut t'on faire un contrôle type:
If A1="N" THEN B1="N" au moment de la saisie, dans la cellule.
ou affecter une MACRO en passant à la cellule suivante.
par exemple pour changer le contenu de B1 si la personne à saisie "O" alors que A1 est à "N".

Je vais réésayer de joindre mon fichier, mais mon administrateur je pense a bloquer les envois par le net ( BANQUE ).

D'avance merci, et bon courage à tous.       

Bonjour,

Toujour aussi débutant mais je persiste.

Mon souci de la semaine c'est un test de saisie dans une cellule.

dans la cellule A1 je demande de mettre "O" ou "N" bien sur j'ai mis une liste comme cela on peut que mettre ces deux réponse.
Idem dans la cellule B1 

Par contre je voudrais que la personne ne puisse mettre "O" dans B1 alors que A1 est a "N", je met donc la fonction si(A1="N";B1="N") bien sur je plante en référence circulaire, de plus le fait d'avoir mis une liste pour les deux cellules pour le test de la réponse pose je crois aussi problème.
Si quelqu'un à déja fait ce type de manip, merci pour son aide.    

Bonjour a tous, et merci, j'ai fait comme cela et ça fonctionne.

j = 1
' Teste le contenu de la cellule active, si celle-ci est vide, sort de la boucle.
      Do Until IsEmpty(ActiveCell)
          Sheets("Feuil3").Select
' copier les cellules a,b,c,d feuil3
           Range("A" & j, "D" & j).Select
           Selection.Copy
           Sheets("Données").Select
' allez Feuil=données, coller dans a2,b2,c2,d2
           Range("A2").Select
           Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
           SkipBlanks:=False, Transpose:=False
' Affiche le contenu des cellules dans un message.
           MsgBox ActiveCell.Value
           Sheets("Feuil3").Select
           Range("A" & j).Select
           ActiveCell.Offset(1, 0).Select
         ' Passe à la cellule suivant 1 ligne en dessous.
'         ActiveCell.Offset(1, 0).Select
j = j + 1
        ' Retourne au début de la boucle.
      Loop