VBA- Synthese de calcul

Version imprimable

Voir 40 message(s) de cette discussion en une page

09/08/2011, 12h05
Invité

Bonjour
Salut Bbil ;)

Citation:

Envoyé par leBlindé

j'ai essayé de bidouiller la formule pour que :
si le nom de ma feuille contient "SP" alors ...
j'ai fais

Code:

If InStr(1, Sht.Name, "SP", vbTextCompare) > 0 Then

Dis LeBlindé t'es pas un peu gonflé :furax:

Ce n'est pas ce que je t'ai mais sur le 10ème post au dessus, ici
http://www.developpez.net/forums/d11...l/#post6167661

T'as fait ... la prochaine fois ce sera sans moi :roll:
Non mais ...
09/08/2011, 12h16
SfJ5Rpw8

oui je crois qu'un peu d'effort pour comprendre le code que tu présente ne ferais pas de mal ...
à quoi sert ce code : If Sheets(i).Name <> "SP" Thenpour toi ?

et pour l'utilisation de la fonction InStr présenté par Bruno la touche :f1: devrait te retourner l'aide souhaité ...
09/08/2011, 12h47
leBlindé

Quand j'ai dis bidouillé j'ai essayé ta formule Bruno que je n'arrivais pas à faire marcher donc j'ai essayé de comprendre pourquoi sans arriver à le faire marcher.
je me suis mal exprimé "j'ai fais", je veux dire j'ai executé le code de bruno.

pour moi :

Code:

If Sheets(i).Name <> "SP" Then

signifie si le nom de la feuille contient "SP" alors mais je crois que cela veut dire si le nom de la feuille est "SP" alors.
09/08/2011, 12h50
SfJ5Rpw8

en vb <> ce lit "différent" ...

Citation:

Envoyé par bbil

et pour l'utilisation de la fonction InStr présenté par Bruno la touche :f1: devrait te retourner l'aide souhaité ...
09/08/2011, 13h26
leBlindé

ah dsl, j'étais pensais que <> signifiait contenient.
Merci pour l'info, je vais me réferer à l'aide de vb lors comme vous dites pour essayer de régler tout ça

Merci en tout cas pour les coups de pouce.:ccool:

Le problème est résolu grâce à la grande aide de bruno et Bbil
Merci beaucoup :ccool: vous êtes super les gars

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
Sub Extraire()
 
'feuille resultats de la colonne D3 a D200 NETTOYAGE
Sheets("Results").Range("D3:D200").ClearContents
'l'item derligne commencera feuille resultats en colonne D3 avec décalage rangée +1 si remplie
Derligne = Sheets("Results").Range("D3").End(xlUp).Row + 1
 
'boucle pour toute les feuilles,la valeur colonne D derniere ligne = sur cette 1ere feuille la valeur de la cellule B1
'passage a la cellule suivante comme dernière ligne
'prochaine feuille
 
Dim I As Integer
   For I = 6 To Worksheets.Count - 1
 If InStr(1, Sheets(I).Name, "SP", vbTextCompare) > 0 Then
 Range("D" & Derligne).Value = Sheets(I).Range("B1").Value
  With Sheets("Results")
    ' Récupérer la dernière ligne vide de la colonne E
    DLigR = .Range("E" & Rows.Count).End(xlUp).Row + 1
    .Range("E" & DLigR) = Worksheets(I).Range("O46").Value
    End With
       Else
    Range("D" & Derligne).Value = Sheets(I).Range("B1").Value
    With Sheets("Results")
    ' Récupérer la dernière ligne vide de la colonne E
    DLigR = .Range("E" & Rows.Count).End(xlUp).Row + 1
    .Range("E" & DLigR) = "-"
    End With
End If
If InStr(1, Sheets(I).Name, "SNC", vbTextCompare) > 0 Then
 Range("D" & Derligne).Value = Sheets(I).Range("B1").Value
  With Sheets("Results")
    ' Récupérer la dernière ligne vide de la colonne F
    DLigR = .Range("F" & Rows.Count).End(xlUp).Row + 1
    .Range("F" & DLigR) = Worksheets(I).Range("O46")
    End With
     Else
    With Sheets("Results")
    ' Récupérer la dernière ligne vide de la colonne F
    DLigR = .Range("f" & Rows.Count).End(xlUp).Row + 1
    .Range("f" & DLigR) = "-"
    End With
End If
If InStr(1, Sheets(I).Name, "ANN", vbTextCompare) > 0 Then
 Range("D" & Derligne).Value = Sheets(I).Range("B1").Value
  With Sheets("Results")
    ' Récupérer la dernière ligne vide de la colonne G
    DLigR = .Range("G" & Rows.Count).End(xlUp).Row + 1
    .Range("G" & DLigR) = Worksheets(I).Range("O46")
    End With
     Else
    With Sheets("Results")
    ' Récupérer la dernière ligne vide de la colonne G
    DLigR = .Range("g" & Rows.Count).End(xlUp).Row + 1
    .Range("g" & DLigR) = "-"
    End With
End If
 Derligne = Derligne + 1
   Next I
 End Sub

Voir 40 message(s) de cette discussion en une page