optimisation de macro

chich · 30 Novembre 2017

Bonjour a tous
ma macro ne fonctionne pas entièrement car elle ne tien pas de la possibilité que (I3)
peux être non vide (renseigner manuellement)
et je souhaite qu'elle s'applique a la plage (I3:10) en foction de la plage (A3:AH10)

Private Sub Worksheet_Activate()
Range("I3").Value = IIf(I3 <> "", "", IIf(AA3 = "", "07:00", ""))
End Sub
Merci d'avance

tbft · 30 Novembre 2017

Bonjour

C'est pas claire!!!!

Dranreb · 30 Novembre 2017

Bonjour.
Pas compris non plus mais appliquant ce que vous aviez écrit sans comprendre, ça pourrait donner ça :

VB:

Private Sub Worksheet_Activate()
Dim T(), L&, C&
T = [I3:AH10].Value
For L = 1 To 8: For C = 1 To 8
   If L Mod 3 <> 0 And C Mod 3 <> 0 Then T(L, C) = IIf(IsEmpty(T(L, C)), _
      IIf(IsEmpty(T(L, C + 18)), TimeSerial(7, 30, 0), Empty), Empty)
   Next C, L
[I3:P10].Value = T
End Sub

chich · 30 Novembre 2017

Dranreb à dit:
Bonjour.
Pas compris non plus mais appliquant ce que vous aviez écrit sans comprendre, ça pourrait donner ça :

VB:

Private Sub Worksheet_Activate() Dim T(), L&, C& T = [I3:AH10].Value For L = 1 To 8: For C = 1 To 8 If L Mod 3 <> 0 And C Mod 3 <> 0 Then T(L, C) = IIf(IsEmpty(T(L, C)), _ IIf(IsEmpty(T(L, C + 18)), TimeSerial(7, 30, 0), Empty), Empty) Next C, L [I3:P10].Value = T End Sub

Re merci pour votre interet
ces presque ca il manque juste qu' il soit pris en compte si par exemple (I3) et déjà renseigner manuellement

Dranreb · 30 Novembre 2017

Ne pouvez vous expliquer clairement ce que vous voulez dans chacun des 4 cas possible ?
1) — Ni Ia cellule ni celle 18 colonnes à sa droite ne sont renseignées,
2) — Seulement celle de gauche l'est,
3) — Seulement celle de droite l'est,
4) — Les deux le sont.

chich · 1 Décembre 2017

Dranreb à dit:
Ne pouvez vous expliquer clairement ce que vous voulez dans chacun des 4 cas possible ?
1) — Ni Ia cellule ni celle 18 colonnes à sa droite ne sont renseignées,
2) — Seulement celle de gauche l'est,
3) — Seulement celle de droite l'est,
4) — Les deux le sont.

re
le but et que toutes les cellules peuvent être renseigner manuellement et donc quant une cellule
est non vide alors la formule ne s'applique pas a cette dernière
j' être suffisamment explicite

Dranreb · 1 Décembre 2017

Répondez à ma question telle que je l'ai posée. Que doit on mettre dans la cellule de gauche dans chacun des 4 cas ?
Il ne s'agit quand même pas tout simplement de mettre 7:30 dans les cellules vide et de laisser ce qu'il y a dans celles qui sont renseignées, j'espère ? Ce serait trop simple !

VB:

Private Sub Worksheet_Activate()
Dim T(), L&, C&
T = [I3:AH10].Value
For L = 1 To 8: For C = 1 To 34
   If L Mod 3 <> 0 And C Mod 3 <> 0 And Not IsEmpty(T(L, C)) Then T(L, C) = TimeSerial(7, 30, 0)
   Next C, L
[I3:AH10].Value = T
End Sub

chich · 1 Décembre 2017

Dranreb à dit:
Répondez à ma question telle que je l'ai posée. Que doit on mettre dans la cellule de gauche dans chacun des 4 cas ?
Il ne s'agit quand même pas tout simplement de mettre 7:30 dans les cellules vide et de laisser ce qu'il y a dans celles qui sont renseignées, j'espère ? Ce serait trop simple !

VB:

Private Sub Worksheet_Activate() Dim T(), L&, C& T = [I3:AH10].Value For L = 1 To 8: For C = 1 To 34 If L Mod 3 <> 0 And C Mod 3 <> 0 And Not IsEmpty(T(L, C)) Then T(L, C) = TimeSerial(7, 30, 0) Next C, L [I3:AH10].Value = T End Sub

Re
Oui vous avez tout compris

Dranreb · 1 Décembre 2017

J'ai du me tromper: c'est pas And Not IsEmpty c'est And IsEmpty(T(L, C)) Then …

chich · 1 Décembre 2017

Dranreb à dit:
J'ai du me tromper: c'est pas And Not IsEmpty c'est And IsEmpty(T(L, C)) Then …

And IsEmpty(T(L, C)) Then ne passe aussi

Dranreb · 1 Décembre 2017

C'est le 32 qui nest pas bon remplacez le par le bon nombre de colonnes de la plage.

chich · 1 Décembre 2017

Dranreb à dit:
C'est le 32 qui nest pas bon remplacez le par le bon nombre de colonnes de la plage.

Re l' ideal serait de fusionner les deux et je souhaiterais aussi me débarrasser du Worksheet_Activate()
et de le remplacer par Private Sub Worksheet_Change(ByVal Target As Range) si possible !

Private Sub Worksheet_Activate()
Dim T(), L&, C&
T = [I3:AH10].Value
For L = 1 To 8: For C = 1 To 8
If L Mod 3 <> 0 And C Mod 3 <> 0 And IsEmpty(T(L, C)) Then T(L, C) = TimeSerial(7, 30, 0)
Next C, L
[I3:AH10].Value = T
End Sub

Private Sub Worksheet_Activate()
Dim T(), L&, C&
T = [I3:AH10].Value
For L = 1 To 8: For C = 1 To 8
If L Mod 3 <> 0 And C Mod 3 <> 0 Then T(L, C) = IIf(IsEmpty(T(L, C)), _
IIf(IsEmpty(T(L, C + 18)), TimeSerial(7, 30, 0), Empty), Empty)
Next C, L
[I3: P10].Value = T
End Sub

Dranreb · 1 Décembre 2017

Eh bien faites le ! Je ne sais pas ce que vous voulez fusionner, moi.
Et puis tiens, pour éviter tout risque d'erreur de nombres de lignes ou de colonnes remplacez donc :
For L = 1 To 8: For C = 1 To 8
par :
For L = 1 To UBound(T, 1): For C = 1 To UBound(T, 2)

optimisation de macro

chich

XLDnaute Occasionnel

Pièces jointes

tbft

XLDnaute Accro

Dranreb

XLDnaute Barbatruc

chich

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

chich

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

chich

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

chich

XLDnaute Occasionnel

Pièces jointes

Dranreb

XLDnaute Barbatruc

chich

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

Discussions similaires

optimisation de macro

XLDnaute Occasionnel

Pièces jointes

XLDnaute Accro

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency