calcul automatique sur colonne avec case vide Fermé

Question

Bonjour à toutes et tous,

J'aimerais trouver une solution au problème suivant : 

 - J'essaye d'appliquer une formule automatiquement avec le double clique de l'incréméntation sur une colonne entière.

 - Ma formule est =si(estvide(U2);"non";"oui")

Le problème, vous l'aurez deviné, c'est que si la case suivante est vide l'incrémentation s'arrête. Mais j'aimerais une réponse si elle est vide.

Il s'agit de date de signature de contrat, si la case est vide une action doit être menée.

Quelqu'un aurait t'il une solution ?
J'ai regardé et cherché sur pas mal de forum et n'ai pas trouvé de réponsé, il se peut que je n'ai pas assez cherché, mais au cas ou, je post quand même.

Merci les loulous

Patrice33740 · Answer

Bonjour et bienvenue sur le Forum,

Deux possibilités :
1. Au lieu de double cliquer sur la croix de recopie, tu saisis la croix (clic gauche maintenu) et tu descends jusqu'à la dernière cellule.
2. Tu copies la première cellule, tu appuis et maintiens la touche Maj (Shift) et tu cliques sur la dernière cellule (ça sélectionne de la première à la dernière cellule), clic droit, coller. 
 
Cordialement
Patrice

Patrice33740 · Answer

Re,

Je ne suis pas sûr d'avoir bien compris ce que tu voudrais faire.

Voici un code, déclenché par un double clic dans la cellule (pas sur la croix de recopie), pour auto-incrémenter la formule d'une cellule de départ (ici V2) jusqu'à la ligne de la dernière cellule utilisée dans la colonne précédente, même si il y a des cellules vides dans cette colonne.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim c As Range, r As Range
  'Définir la première cellule qui contient la formule
  Set c = Range("V2")
  'Vérifier que le double clic a lieu dans la colonne à incrémenter, sinon terminer
  If Intersect(Target, c.EntireColumn) Is Nothing Or Target.Column = 1 Then Exit Sub
  'Définir la plage à incrémenter en fonction de la colonne précédente
  Set r = Range(c, Cells(Rows.Count, c.Column - 1).End(xlUp).Offset(0, 1))
  'Vérifier que le double clic a lieu dans la plage à incrémenter, sinon terminer
  If Target.Row < c.Row Or (Target.Row + Target.Rows.Count) > (r.Row + r.Rows.Count) Then Exit Sub
  'Incrémenter la plage
  c.AutoFill Destination:=r
  'Annuler le double clic
  Cancel = True
End Sub
Copier/coller le code dans le module de la feuille.

Calcul automatique sur colonne avec case vide

2 réponses

Discussions similaires

Newsletters