Discussion :

[Saddam]

Bonjour

Je me permets de demander votre aide pour des questions de débutant.

D'abord, j'ai un bloquage concernant un import de donnnées. Je cherche à prendre une table dans un document pour l'importer dans un autre document. L'import se fait, mais les données arrivent au mauais endroit de la bonne feuille. Comment faire pour que la table soit collée en B5 de la feuille "CHARGES" ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
Sub Macro()
 
'
    Dim derlig As Integer
'
    Windows("BAL_44.xlsx").Activate
    Sheets("Données").Select
    derlig = LastLigData()
    For i = 5 To derlig
        NumCompte = Cells(i, 2).Value
        Intitulé = Cells(i, 3).Value
        Débit = Cells(i, 4).Value
        Crédit = Cells(i, 5).Value
        If NumCompte Like "60*" Then
            Windows("abc.xlsm").Activate
            Sheets("CHARGES").Select
            Cells(i, 2) = NumCompte
            Cells(i, 3) = Intitulé
            Cells(i, 4) = Débit
            Cells(i, 5) = Crédit
            Windows("BAL_44.xlsx").Activate
            Sheets("Données").Select
        End If
    Next i
End Sub

Ensuite, j'ai un souci pour exprimer le critère "ne commence pas par" dans la fonction SOMME.SI.ENS.

=SOMME.SI.ENS(H5:H300;B5:B300; "<>63*";B5:B300; "<>64*")
ici je cherche à faire la somme des cellules de la plage H5:H300, pour lesquelles les cellules de la plage B5:B300 ne commencent pas par 63 et 64.

Merci pour votre aide !!

Saddam

[jfontaine]

Bonjour,

Pour la copie le mieux serait de copier l'ensemble de la plage plutôt que de faire un transfert de valeur ligne par ligne

Code non testé avec les noms de classeurs et feuilles

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Dim derlig As Integer
derlig = LastLigData()
 
Sheets("Données").range("B5:E" & derlig).Copy workbooks(""abc.xlsm").Sheets("CHARGES").range("B5")

Pour la formule SOMME.SI.ENS je ne peux te répondre car je suis sous 2003
Par contre, tu peux utiliser un sommeprod

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=Sommeprod((gauche(B5:B300;2)<>"63")*(gauche(B5:B300;2)<>"64");H5:H300)

[gFZT82]

Bonjour,

Ta formule avec la fonction SOMME.SI.ENS. fonctionne correctement si les cellules de la plage B5:B300 sont au format texte.

Cordialement.

[Saddam]

Merci à vous deux pour ces réponses.

Compte-rendu, à première vue :

Sommeprod : ça marche tout à fait
Copier une plage en entier : ça ne convient pas tout à fait dans mon cas, mais peut être que j'appliquerai l'idée plus tard
Changer le format de certaines plages : j'ai essayé mais ça ne marche pas, apparemment.

[je suis visiblement très "visuel" ]

[Saddam]

Bonjour

J'ai une nouvelle question à vous soumettre, toujours assez facilce, cette fois-ci concernant la fonction somme.si.

Je souhaite faire la somme de toute les virements effectués pour un jour bien précis.

Donc la fonction donne à priori quelque chose du genre :

=SOMME.SI('plage des dates des paiements' ; 'critère : les dates des paiements sont égales à 1 date dans une autre plage' ; 'paiements')

exemple :
=SOMME.SI('Feuil1'!B2:B300; ??? ; 'Feuil1'!A2;A300)

Comme vous le voir, je ne sais pas comment exprimer la condition. L'informaticien de la boîte m'a fait comprendre que mes questions l'ennuyaient ferme

Merci d'avance

Saddam

[jfontaine]

Un autre façon de faire une somme.si sans si on a un Excel version antérieure à 2007

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SOMME(SI((B2:B300=Date)*(B2:C300=1);A2:A300))

Formule matricielle a valider par CTRL+MAJ+ENTREE

tu peux aussi utiliser mon exemple de sommeprod qui conviendra très bien pour cela