Question sur formule :=SI(ET(ESTVIDE

Version imprimable

25/07/2014, 19h45
krystal

Question sur formule :=SI(ET(ESTVIDE

Bonjour,

J’aurais besoin de vos conseils concernant la formule =SI(ET(ESTVIDE

En effet j’ai inséré dans mon tableau une fonction qui permet de vérifier si une plage de cellules est vide.

Ainsi, j'ai mis dans la cellule AEC la formule suivante :

Code:

=SI(ET(ESTVIDE(AEH3);ESTVIDE(AEI3);ESTVIDE(AEJ3);ESTVIDE(AEK3);ESTVIDE(AEL3);ESTVIDE(AEM3);ESTVIDE(AEN3);ESTVIDE(AEO3);ESTVIDE(AEP3);ESTVIDE(AEQ3);ESTVIDE(AER3);ESTVIDE(AES3);ESTVIDE(AET3);ESTVIDE(AEU3);ESTVIDE(AEV3);ESTVIDE(AEW3);ESTVIDE(AEX3));"X";"")

Ce qui me met donc une X si elles sont bien vides, sinon rien.

Est-il possible de simplifier cette formule ?

D’autre part, il m’arrive que lorsque je rajoute des lignes, cette formule saute parfois, donc je me demandais si l’on pouvait la remplacer en mettant un code vba dans la feuille ?

Merci d’avance pour votre aide.
25/07/2014, 20h11
Philippe Tulliez

Bonjour,

Citation:

Est-il possible de simplifier cette formule ?

Je pense que oui :?

Code:

=SI(NB.VIDE(AEH3:AEX3);"X";"")

ou

Code:

=SI(NBVAL(AEH3:AEX3);"";"X")
25/07/2014, 20h35
krystal

Merci Philippe pour ta rapide réponse.

J'ai essayé tes 2 codes, et c'est le 2ème qui fonctionne !!:D

Code:

=SI(NBVAL(AEH3:AEX3);"";"X")

Ca va me simplifier grandement la tâche.

Si vous avez une idée sur une version en vba je suis toujours intéressée ;)

Bonjour,

Citation:

J'ai essayé tes 2 codes, et c'est le 2ème qui fonctionne !!

Effectivement, j'ai répondu un peu vite.
Pour la première formule, il fallait vérifier que toutes les cellules étaient vides (17 dans ce cas-ci)

Code:

=SI(NB.VIDE(AEH3:AEX3)=17;"x";"")

Pour renvoyer le nombre de cellules d'une façon dynamique et pas par constante.

Code:

=SI(NB.VIDE(AEH3:AEX3)=COLONNES(AEH3:AEX3);"x";"")

Attention qu'il y a une petite différence entre NB.VIDE et NBVAL
Si dans une des cellules de la plage mise en argument (ici AEH3:AEX3), il y a une formule, NB.VIDE, NBVAL la considère comme remplie. Sauf si cette formule renvoie une chaîne vide comme par exemple.

Code:

=SI(A2<>0;A2;"")

Dans ce cas précis si la condition est fausse, la formule renverra donc une chaîne vide dans la cellule et NB.VIDE la considère alors comme vide alors que NBVAL la considère comme remplie.

Citation:

Si vous avez une idée sur une version en vba je suis toujours intéressée

Voici un exemple de procédure VBA qui écrit "X" dans la cellule AEF3 de la feuille nommée [Feuil1] si la plage AEH3:AEX3 de cette même feuille est vide ou une chaîne vide dans le cas contraire.
Code:

1 2 3 4 5 6 7 Sub t() Dim sht As Worksheet Set sht = ThisWorkbook.Worksheets("Feuil1") With sht .Range("AEF3") = IIf(Application.WorksheetFunction.CountA(.Range("AEH3:AEX3")), "", "X") End With End Sub
S'il faut faire une boucle sur plusieurs lignes par exemple de la ligne 2 à la ligne 100
Code:

1 2 3 4 5 6 7 8 9 Sub t() Dim sht As Worksheet, r As Long Set sht = ThisWorkbook.Worksheets("Feuil1") For r = 2 To 100 With sht .Range("AEF" & r) = IIf(Application.WorksheetFunction.CountA(.Range("AEH" & r & ":AEX" & r)), "", "X") End With Next End Sub
Autre scénario, on souhaite placer la formule

Code:

=SI(NBVAL(AEH2:AEX2);"";"X")

dans la plage AEF2:AEF100
Code:

1 2 3 4 5 6 Sub t() Dim sht As Worksheet, myFormula As String myFormula = "=IF(COUNTA(AEH2:AEX2),"""",""X"")" Set sht = ThisWorkbook.Worksheets("Feuil1") sht.Range("AEF2:AEF100") = myFormula End Sub

26/07/2014, 10h23
NVCfrm

Bonjour Philipe,

C'est un très bon rappel pour moi sur les nuances entre NB.VIDE, NBVAL.

J'ajoutes qu'en VBA, il est préférable (c'est ma pensée) de s'affranchir de ces fonctions dans la plupart des cas.
Les Propriétés de l'objet global SpecialCells sont déjà disponibles en mémoire pour répondre à ces besoins.

Sans doute devras tu aussi lui expliquer dans tes explications limpides, les pièges possibles avec xlCellTypeBlanks
26/07/2014, 11h17
Philippe Tulliez

Bonjour Ousmane,
C'est vrai qu'au moment de rédiger les multiples possibilités de compter les cellules vides ou plutôt non vides, j'ai complètement oublié la propriété SpecialCells avec comme argument la constante xlCellTypeBlanks.
Il y a aussi la formule BDNBVAL mais qui ne convient pas à son cas particulier et puis SOMMEPROD pourquoi pas mais cela devient un peu lourd.

Bonjour Philippe et Ousmane, le forum,

Merci à vous de prendre le temps de vous pencher sur mon cas :) j'espère que vous serez patients car je suis novice et je ne maitrise pas bien le vba mais je persévère.

Philippe, j'ai essayé de comprendre la différence entre valeur "constante" et valeur "dynamique" mais effectivement avec cette formule ça fonctionne aussi

Code:

=SI(NB.VIDE(AEH3:AEX3)=COLONNES(AEH3:AEX3);"x";"")

J'ai essayé depuis ce matin de comprendre, j'ai fait plusieurs essais avec différentes formules, et j'ai pu quand même adapter une des formules avec un de mes autres fichiers, plus simple ne contenant qu'une seule feuille pour lequel ce code me sera bien utile :

Code:

1
2
3
4
5
6
7
8
9
10
Sub t()
 Dim sht As Worksheet, r As Long
 Set sht = ThisWorkbook.Worksheets("OCT")
 For r = 2 To 350
  With sht
  .Range("D6" & r) = IIf(Application.WorksheetFunction.CountA(.Range("E" & r & ":BX" & r)), "", "X")
  .Calculate
  End With
 Next
 End Sub

Par contre je n'ai pas réussi à l'adapter sur un autre classeur qui lui contient plusieurs feuilles qui se rafraichissent automatiquement à l'activation en fonction des données stockées dans une feuille nommée "base" permettant d'attribuer un ID pour chaque ligne et de renvoyer les infos sur les autres feuilles.

Voici le code de la feuille sur laquelle je souhaite appliquer cette formule (la cellule où se trouve la formule corresponde à :
- dans la feuille "typo" : (i,10) - Cellule J
- dans la feuille "base" : (j,809) - Cellule AEC

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Private Sub Worksheet_Change(ByVal Target As Range)
Application.DisplayAlerts = 0: Application.EnableEvents = 0
i = Target.Row
If Cells(i, 1) = "" Then Application.EnableEvents = -1: Exit Sub
'Récupération de l'Identifiant de la ligne modifiée
Id = Cells(i, 1)
  'On cherche l'Id dans la colonne A de Base
  'Si on le trouve
  If Not IsError(Application.Match(Id, Sheets("Base").Columns(1), 0)) Then
  'Mise en majuscule et nom propre des Nom et Prénom
  Cells(i, 4) = StrConv(Cells(i, 4), 1)
   With Sheets("Base")
    'Si l'Id est trouvé
    If Not IsError(Application.Match(Id, .Columns(1), 0)) Then
      j = Application.Match(Id, .Columns(1), 0)
      'on copie les données modifiée dans Base
      .Cells(j, 2).Resize(, 4).Value = Cells(i, 2).Resize(, 4).Value
      .Cells(j, 25) = Cells(i, 6)
      .Cells(j, 28) = Cells(i, 7)
      .Cells(j, 29) = Cells(i, 8)
      .Cells(j, 808) = Cells(i, 9)
      .Cells(j, 809) = Cells(i, 10)
      .Cells(j, 810).Risize(, 4).Value = Cells(i, 11).Resize(, 4).Value
      .Cells(j, 814).Resize(, 17).Value = Cells(i, 15).Resize(, 17).Value
       Cells(i, 10) = "=IF(COUNTA(O5:AE5),"""",""X"")"
            End If
  End With
End If
Application.DisplayAlerts = -1: Application.EnableEvents = -1
End Sub
Private Sub Worksheet_Activate()
Application.DisplayAlerts = 0: Application.EnableEvents = 0
'A l'activation de la feuille
  'On cherche la dernière ligne pleine pour supprimer les données
   j = [A65536].End(xlUp).Row
  If j > 4 Then Rows("5:" & j).ClearContents
  With ("Base")
  'Pour toutes les lignes de "Base"
  For j = 3 To .[A65536].End(xlUp).Row
    If .Cells(j, 2) <> "" Then
      'On copie les données de Base dans la feuille activée
      i = [A65536].End(xlUp)(2).Row
      Cells(i, 1).Resize(, 5).Value = .Cells(j, 1).Resize(, 5).Value
      Cells(i, 6) = .Cells(j, 25)
      Cells(i, 7) = .Cells(j, 28)
      Cells(i, 8) = .Cells(j, 29)
      Cells(i, 9) = .Cells(j, 808)
      Cells(i, 10) = .Cells(j, 809)
      Cells(i, 11).Resize(, 4).Value = .Cells(j, 810).Resize(, 4).Value
      Cells(i, 15).Resize(, 17).Value = .Cells(j, 814).Resize(, 17).Value
      Cells(i, 10) = "=IF(COUNTA(O5:AE5),"""",""X"")"
 
    End If
    Next
  End With
  j = [A65536].End(xlUp).Row
  If j > 4 Then Range("A5:AE" & [D65536].End(xlUp).Row).Sort [D5], xlAscending, [E5], , xlAscending, , , xlNo
Application.DisplayAlerts = -1: Application.EnableEvents = -1
End Sub

Au départ, je voulais suivre le même principe que dans la feuille "Suivi" : en effet, j'ai sur celle-ci autre un code pour calculer une échéance mais je n'y suis pas parvenue, voici comment elle se présente :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Private Sub Worksheet_Change(ByVal Target As Range)
Application.DisplayAlerts = 0: Application.EnableEvents = 0
i = Target.Row
If Cells(i, 1) = "" Then Application.EnableEvents = -1: Exit Sub
'Récupération de l'Identifiant de la ligne modifiée
Id = Cells(i, 1)
  'On cherche l'Id dans la colonne A de Base
  'Si on le trouve
  If Not IsError(Application.Match(Id, Sheets("Base").Columns(1), 0)) Then
  'Mise en majuscule et nom propre des Nom et Prénom
  Cells(i, 4) = StrConv(Cells(i, 4), 1)
  With Sheets("Base")
    'Si l'Id est trouvé
    If Not IsError(Application.Match(Id, .Columns(1), 0)) Then
      j = Application.Match(Id, .Columns(1), 0)
      'on copie les données modifiée dans Base
      .Cells(j, 2).Resize(, 4).Value = Cells(i, 2).Resize(, 4).Value
      .Cells(j, 25) = Cells(i, 6)
      .Cells(j, 46) = Cells(i, 7)
      .Cells(j, 47) = Cells(i, 8)
      .Cells(j, 16) = Cells(i, 9)
      .Cells(j, 15) = Cells(i, 10)
      .Cells(j, 30) = Cells(i, 11)
       .Cells(j, 18) = Cells(i, 12)
        .Cells(j, 31) = Cells(i, 13)
      .Cells(j, 32).Resize(, 14).Value = Cells(i, 14).Resize(, 14).Value
      .Cells(j, 831).Resize(, 3).Value = Cells(i, 28).Resize(, 3).Value
         
         If Cells(i, 12) <> "" Then
          Cells(i, 13) = Application.WorksheetFunction.EoMonth(Cells(i, 12), -1)
        Else
          Cells(i, 13) = ""
      End If
            End If
  End With
End If
Application.DisplayAlerts = -1: Application.EnableEvents = -1
End Sub

La formule concerne les lignes en rouge, qui a été également reportée dans la partie "Activate"

Je voulais vous mettre le fichier mais cela n'a pas fonctionné j'ignore pourquoi, c'est un fichier xlsm de 615 ko.

J'espère que ce n'est pas trop fouillis et que pourrez m'aider à comprendre mes erreurs.

27/07/2014, 08h24
Philippe Tulliez
Bonjour,

Citation:

Philippe, j'ai essayé de comprendre la différence entre valeur "constante" et valeur "dynamique" mais effectivement avec cette formule ça fonctionne aussi

Si une valeur est constante, elle ne peut être modifiée
Dans cette formule, le chiffre 6 est une constante et t'oblige à compter le nombre de cellules qu'il y a dans la plage B3:G3

Code:

=SI(NB.VIDE(B3:G3)=6;"x";"")

Dans la formule ci-dessous, la constante 6 est remplacée par la formule COLONNES(plage)

Code:

=SI(NB.VIDE(B3:G3)=COLONNES(B3:G3);"x";"")

la formule COLONNES(plage) renvoie le nombre de colonnes dans la plage passée en argument et ainsi tu ne dois plus faire le calcul. Celui devient donc dynamique.

Citation:

Au départ, je voulais suivre le même principe que dans la feuille "Suivi" : en effet, j'ai sur celle-ci autre un code pour calculer une échéance mais je n'y suis pas parvenue, voici comment elle se présente :

Il y a trop de lignes de code à lire et tu mélanges du code qui a fonctionné avec celui qui pose problème et sans nous dire ce qui ne va pas.
Dans cette partie du code qu tu as mis en rouge, le calcul renvoyé est faux, un message d'erreur apparaît, quel est le problème ?
Au lieu de vérifier Cells(i, 12) n'est pas vide, il serait déjà préférable de vérifier si c'est une date.
Code:

1 2 3 4 If Cells(i, 12) <> "" Then Cells(i, 13) = Application.WorksheetFunction.EoMonth(Cells(i, 12), -1) Else Cells(i, 13) = ""
Ton classeur est trop important que tu n'utilises pas les formules natives d'excel directement dans les feuilles de calculs ?

Citation:

Je voulais vous mettre le fichier mais cela n'a pas fonctionné j'ignore pourquoi, c'est un fichier xlsm de 615 ko.

A ce stade de la discussion et en ce qui me concerne, il n'y a aucune raison d'avoir un classeur en téléchargement.
Quand l'explication est claire, la réponse peut l'être aussi.

Bonjour Philippe, le forum,

Je te remercie pour l'explication sur les valeurs constantes et dynamiques, je saisie mieux la différence :)

Citation:

Il y a trop de lignes de code à lire et tu mélanges du code qui a fonctionné avec celui qui pose problème et sans nous dire ce qui ne va pas.
Dans cette partie du code qu tu as mis en rouge, le calcul renvoyé est faux, un message d'erreur apparaît, quel est le problème ?
Au lieu de vérifier Cells(i, 12) n'est pas vide, il serait déjà préférable de vérifier si c'est une date.

En fait le code que j'ai mis dans ce cas en rouge fonctionne très bien, c'était pour vous montrer comment j'avais adapté une formule pour calculer une échéance selon une date. J'ai bien mon résultat et le envoie ce fait bien de la feuille source vers la feuille "base" et vice et versa.

Mon classeur contient plusieurs feuilles, et chacune reprend des infos communes, tels que le nom, prénom tel, nom du CT, ainsi que des dates et autres infos etc....

Donc afin que toutes les lignes soient renvoyées sans risque de décalage ou pertes de données, une feuille "base" (la dernière) a été créée.

L'enregistrement dans le tableau se fait dans un premier temps dans cet ordre:
feuille 1 : enregistrement des infos de la personne : un tri automatique se fait sur le NOM puis un id également affecté via la feuille base automatiquement. Donc si je vais dans la feuille base je retrouve toutes mes infos. Elle contient également les autres infos des autres feuilles , ce qui fait que toute modification faite sur l'une des feuilles sera mise à jour automatiquement sur toutes les autres.

Donc pour en revenir à la formule que je souhaiterais mettre : celle que tu m'as donnée et qui a fonctionné sur un autre de mes fichiers :
Code:

1 2 3 4 5 6 7 8 9 10 Sub t() Dim sht As Worksheet, r As Long Set sht = ThisWorkbook.Worksheets("OCT") For r = 2 To 350 With sht .Range("D6" & r) = IIf(Application.WorksheetFunction.CountA(.Range("E" & r & ":BX" & r)), "", "X") .Calculate End With Next End Sub
Or je n'arrive pas à l'adapter dans mon autre classeur (celui avec la feuille base). J'ai fait un essai en ne la mettant que sur la feuille "base" cela a fonctionné au départ mais en rafraichissant mon classeur le code vba disparait.
J'ai encore refait des essais ce matin, mais je bloque pour l'instant au niveau des End if, End with, Next... j'ai du mal encore à comprendre à quel moment il en faut ou non (j'ai noté en rouge le code que tu m'avais transmis).
Voici mon code et l'erreur ici est sur End with mais je pense que ce n'est pas la seule.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 Private Sub Worksheet_Activate() Application.DisplayAlerts = 0: Application.EnableEvents = 0 'A l'activation de la feuille 'On cherche la dernière ligne pleine pour supprimer les données j = [A65536].End(xlUp).Row If j > 4 Then Rows("5:" & j).ClearContents With Sheets("Base") 'Pour toutes les lignes de "Base" For j = 3 To .[A65536].End(xlUp).Row If .Cells(j, 2) <> "" Then 'On copie les données de Base dans la feuille activée i = [A65536].End(xlUp)(2).Row Cells(i, 1).Resize(, 5).Value = .Cells(j, 1).Resize(, 5).Value Cells(i, 6) = .Cells(j, 25) Cells(i, 7) = .Cells(j, 28) Cells(i, 8) = .Cells(j, 29) Cells(i, 9) = .Cells(j, 808) Cells(i, 10) = .Cells(j, 809) Cells(i, 11).Resize(, 4).Value = .Cells(j, 810).Resize(, 4).Value Cells(i, 15).Resize(, 17).Value = .Cells(j, 814).Resize(, 17).Value End If Next End With Dim sht As Worksheet, r As Long Set sht = ThisWorkbook.Worksheets("Base") For r = 3 To 350 With sht .Range("AEC" & r) = IIf(Application.WorksheetFunction.CountA(.Range("AEH" & r & ":AEX" & r)), "", "X") End With Next End With End If j = [A65536].End(xlUp).Row If j > 4 Then Range("A5:AE" & [D65536].End(xlUp).Row).Sort [D5], xlAscending, [E5], , xlAscending, , , xlNo Application.DisplayAlerts = -1: Application.EnableEvents = -1 End Sub
Je n'ai pas mis que le worksheet Change mais il faudra que je fasse de même.

J'espère que c'est plus clair.

Merci d'avance pour votre aide.

27/07/2014, 11h56
Philippe Tulliez

Bonjour,

Citation:

Mon classeur contient plusieurs feuilles, et chacune reprend des infos communes, tels que le nom, prénom tel, nom du CT, ainsi que des dates et autres infos etc....

J'avoue ne pas bien comprendre l'organisation de tes données et je me demande si tu ne ferais pas bien de travailler avec Access mais là n'est pas le propos.
Si j'ai bien compris tes explications et surtout si tu utilises des ID pourquoi ne travailles tu pas avec les fonctions de la catégorie Recherche et Matrices comme RECHERCHEV, INDEX et EQUIV ?
Tu pourrais t'inspirer ou même utiliser la fonction que j'ai publiée dans cette contribution LookupLabelRange - Ajouter une colonne à une liste de données
27/07/2014, 15h38
krystal

Pour Acces, nous n'utilisons pas ce programme malheureusement.

Le fichier Excel actuel est en effet complexe mais fonctionne, je souhaitais simplement introduire ce calcul directement dans le code mais bon si ce n'est pas possible, je laisserais comme tel, à moi de vérifier régulièrement que la formule a bien été recopiée sur toutes les lignes.

Je viens d'aller voir ton lien et j'ai téléchargé ton fichier démo, je vais regarder cela de plus près pour voir comment cela fonctionne.

Merci encore pour ton aide.
27/07/2014, 15h49
Philippe Tulliez

Bonjour,
Dans la dernière partie de ton dernier code publié ici, il me semble que le 'End With' de la ligne 31 de la procédure est en trop et le 'End If' de la ligne 32 il me semble également mais je n'ai pas regardé tout le code car il n'est pas complètement indenté.
27/07/2014, 16h14
krystal

Merci infiniment Philippe ! Ca fonctionne parfaitement :D :applo:

J'aimerais bien ceci dit comprendre cette logique, comment repérer à quel moment il faut terminer une boucle, le nombre de End, de With etc... Jusqu'à présent j'avoue que j'ai pu trouver parfois la solution en faisant un peu au hasard mais je suis consciente que ce n'est pas la solution.

Si un tuto expliquant les bases existe ça m'intéresserait, car j'en ai trouvé mais c'est déjà trop compliqué pour moi :roll:

Encore merci pour ton aide.:ccool:

Bonjour,

Citation:

J'aimerais bien ceci dit comprendre cette logique, comment repérer à quel moment il faut terminer une boucle, le nombre de End, de With etc.

C'est relativement simple à comprendre
Pour les If
Code:

1 2 3 4 5 If <Condition> then ' Le code si la condition est remplie Else ' Le code sinon End If
Pour le bloc With...End With
Code:

1 2 3 4 5 6 Dim cel As Range Set cel = ThisWorkbook.Worksheets("Feuil1").Range("A2:A11") With cel .Interior.Color = vbYellow .Value = "Excel " End With
On peut aussi imbriquer un bloc With dans un autre bloc With
Code:

1 2 3 4 5 6 7 8 9 Dim cel As Range Set cel = ThisWorkbook.Worksheets("Feuil1").Range("B1:B5") With cel .HorizontalAlignment = xlCenter .Interior = vbYellow With .Font .Bold = True .Color = vbRed End With
Pour ce qui est des tutoriels pour débuter, je te conseille
Formation Excel - VBA débutant
Excel et Visual Basic : Tutoriel
Vos premiers pas dans l'éditeur de macros Excel suivi de Visual Basic Editor
La gestion des erreurs dans Excel
Indispensable pour bien trouver ses erreurs dans la programmation
Le débogage sous Visual Basic 6 (1ère partie)
et puis consulter la FAQ Excel et Les meilleurs cours et tutoriels pour Excel

et bien j'ai parlé trop vite, il va vraiment falloir que je me penche sur cette histoire, car en voulant rentrer une donnée dans une cellule j'ai l'erreur suivante : erreur de compilation For sans Next

Ces lignes concerne la partie WorksheetChange (j: concerne les cellules de la feuille "base" et i : celles où je rentre mes données)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 Private Sub Worksheet_Change(ByVal Target As Range) Application.DisplayAlerts = 0: Application.EnableEvents = 0 i = Target.Row If Cells(i, 1) = "" Then Application.EnableEvents = -1: Exit Sub 'Récupération de l'Identifiant de la ligne modifiée Id = Cells(i, 1) 'On cherche l'Id dans la colonne A de Base 'Si on le trouve If Not IsError(Application.Match(Id, Sheets("Base").Columns(1), 0)) Then 'Mise en majuscule et nom propre des Nom et Prénom Cells(i, 4) = StrConv(Cells(i, 4), 1) With Sheets("Base") 'Si l'Id est trouvé If Not IsError(Application.Match(Id, .Columns(1), 0)) Then j = Application.Match(Id, .Columns(1), 0) 'on copie les données modifiée dans Base .Cells(j, 2).Resize(, 4).Value = Cells(i, 2).Resize(, 4).Value .Cells(j, 25) = Cells(i, 6) .Cells(j, 28) = Cells(i, 7) .Cells(j, 29) = Cells(i, 8) .Cells(j, 808) = Cells(i, 9) .Cells(j, 810).Resize(, 4).Value = Cells(i, 11).Resize(, 4).Value .Cells(j, 814).Resize(, 17).Value = Cells(i, 15).Resize(, 17).Value End If End With Dim sht As Worksheet, r As Long Set sht = ThisWorkbook.Worksheets("Base") For r = 3 To 350 With sht .Range("AEC" & r) = IIf(Application.WorksheetFunction.CountA(.Range("AEH" & r & ":AEX" & r)), "", "X") End With Application.DisplayAlerts = -1: Application.EnableEvents = -1 Application.Calculate End Sub
Je ne comprends pas ce message car jusqu'ici je ne l'ai jamais eu, et ça fonctionnait et je ne vois pas le rapport avec les nouvelles lignes que j'ai rajoutées.

J'avais une autre question, j'ai remarqué dans la plupart de mes fichiers les calculs des formules ne se faisaient pas instantanément, l faut que je fasse à chaque fois enregistrer. Je suis allée dans Option et j'ai coché "calcul du classeur automatique" mais ça ne reste pas.

Je te remercie aussi pour toutes tes explications, c'est bien clair, les bases je comprends là où j'ai plus de mal c'est lorsque c'est imbriqué, tes différents liens et tutos vont m'être très utiles.

Bonjour,
Il est impossible de t'aider si tu ne déclares pas tes variables systématiquement.
Pour les modules déjà écrits, tu dois placer en tête de module Option Explicit et parallèlement à cela, tu dois aller dans les options de l'éditeur (Outils/Options... onglet [Editeur]) et cocher Déclaration des variables obligatoire.
Cela t'obligera à déclarer toutes tes variable et cela facilitera grandement le travail de débogage.
En bas de ton code, il te manque le Next (Mis en rouge) et de plus il est préférable de déclarer ses variables en tête de procédure
Code:

1 2 3 4 5 6 7 8 9 Dim sht As Worksheet, r As Long Set sht = ThisWorkbook.Worksheets("Base") For r = 3 To 350 With sht .Range("AEC" & r) = IIf(Application.WorksheetFunction.CountA(.Range("AEH" & r & ":AEX" & r)), "", "X") End With Next r Application.DisplayAlerts = -1: Application.EnableEvents = -1 Application.Calculate

27/07/2014, 18h12
krystal

Effectivement pour la ligne "Option Explicit" je l'avais mise sur les autres feuilles mais par sur celle-ci ainsi qu'une autre. L'option "Déclarer des variables obligatoires" n'était pas non plus cochée.

J'ai rajouté Next comme tu me l'a conseillée, et j'ai eu un autre message avec les bloc if mais j'ai enfin réussi à comprendre ce qui n'allait pas.

Et bien je pense que tout fonctionne à présent, j'ai encore appris des choses aujourd'hui :D je vais pouvoir avancer et m'améliorer j'espère.

Encore merci pour tout.