requete insert et where avec vba

Version imprimable

22/08/2012, 08h52
Daniela

requete insert et where avec vba

Bonjour a tous,
je voudrais savoir si avec excel et il possible de inserer des valeurs tapés dans les cellules c3 et d3 dans la feuille 3 dans la feuille 2 dans les colonnes d et e mais à la ligne où le nom et le prenom sont affichés dans la feuille 3 dans les cellules b3 et a3.
22/08/2012, 09h40
Jean-Philippe André

Hello,

bien sûr que c'est possible :
- passer par une boucle pour tester les valeurs pour détecter la ligne de recopie
- coller les valeurs :)

Quelle étape te pose problème exactement ?

moi j'ai sais qui permet d'inserer la valeur

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton2_Click()
 
Dim NewLig As Long
 
With Worksheets("fiche")
    .Range("V" & NewLig).Value = Worksheets("donnees").Range("B17").Value
    .Range("W" & NewLig).Value = Worksheets("donnees").Range("C17").Value
    .Range("X" & NewLig).Value = Worksheets("donnees").Range("D17").Value
    .Range("Y" & NewLig).Value = Worksheets("donnees").Range("B18").Value
    .Range("Z" & NewLig).Value = Worksheets("donnees").Range("C18").Value
    .Range("AA" & NewLig).Value = Worksheets("donnees").Range("D18").Value
 
End Sub

mais j'ai sais pas comment on dit where

Ok,
il te reste donc juste à trouver la valeur à attribuer à NewLig

Tu peux passer par une boucle For du style

Code:

1
2
3
4
5
6
For i = 1 To Worksheet("tafeuillefinale").Range("A65536").End(Xlup).Row
'toutes les lignes donc
If Worksheet("tafeuillefinale").Range("A" & i).Value = "tavaleur prenom" and Worksheet("tafeuillefinale").Range("B" & i).Value = "tavaleur nom" Then
Numlig = i
End if
Next i

je fais ça mais ne marche pas

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub CommandButton1_Click()
 
Dim NewLig As Long
 
With Worksheets("Donnees")
    .Range("D" & NewLig).Value = Worksheets("fiche").Range("D6").Value
 
 
For i = 1 To Worksheet("Donnees").Range("A65536").End(xlUp).Row
'toutes les lignes donc
If Worksheet("Donnes").Range("A" & i).Value = "A6" And Worksheet("Donnees").Range("B" & i).Value = "B6" Then
Numlig = i
End If
Next i
 
End Sub

Attention, ici tu testes en dur "A6" et "B6", au lieu de passer par les cellules A6 et B6 ;)
essaie avec

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Private Sub CommandButton1_Click()
 
Dim NewLig As Long
 
With Worksheets("Donnees")
    .Range("D" & NewLig).Value = Worksheets("fiche").Range("D6").Value
 
 
For i = 1 To Worksheet("Donnees").Range("A65536").End(xlUp).Row
'toutes les lignes donc
If Worksheet("Donnes").Range("A" & i).Value = Worksheets("fiche").Range("A6").Value And Worksheet("Donnees").Range("B" & i).Value = Worksheets("fiche").Range("B6").Value Then
Numlig = i
End If
Next i
 'il faut placer le reste de ton code ici je pense :)
End Sub

22/08/2012, 10h25
Bear the french
Citation:
Envoyé par Daniela

je fais ça mais ne marche pas

Code:

1 2 If Worksheet("Donnes").Range("A" & i).Value = "A6" And Worksheet("Donnees").Range("B" & i).Value = "B6" Then
Bonjour,

Il manque un "e" dans ta première désignation de ta feuille "Donnees".

Bertrand

Citation:

Envoyé par jpcheck

Attention, ici tu testes en dur "A6" et "B6", au lieu de passer par les cellules A6 et B6 ;)
essaie avec

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Private Sub CommandButton1_Click()
 
Dim NewLig As Long
 
With Worksheets("Donnees")
    .Range("D" & NewLig).Value = Worksheets("fiche").Range("D6").Value
 
 
For i = 1 To Worksheet("Donnees").Range("A65536").End(xlUp).Row
'toutes les lignes donc
If Worksheet("Donnes").Range("A" & i).Value = Worksheets("fiche").Range("A6").Value And Worksheet("Donnees").Range("B" & i).Value = Worksheets("fiche").Range("B6").Value Then
Numlig = i
End If
Next i
 'il faut placer le reste de ton code ici je pense :)
End Sub

il y a un erreur

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub CommandButton1_Click()
 
Dim NewLig As Long
 
For i = 1 To Worksheets("Donnes").Range("A65536").End(xlUp).Row
'toutes les lignes donc
If Worksheets("Donnes").Range("A" & i).Value = Worksheets("Fiche").Range("A6").Value And Worksheets("Donnees").Range("B" & i).Value = Worksheets("Fiche").Range("B6").Value Then
Numlig = i
End If
Next i
With Worksheets("Donnees")
    .Range("D" & NewLig).Value = Worksheets("Fiche").Range("D6").Value
    
    'il faut placer le reste de ton code ici je pense :)
End With

End Sub

22/08/2012, 10h41
Jean-Philippe André

OK,
quelle est la valeur de Numlig ?
quelle est l'erreur exactement ?
22/08/2012, 10h47
Bear the french
Bonjour Daniela,

J'indique une deuxième bizarrerie :

A 9h46, tu écris ce code :

Code:

.Range("V" & NewLig).Value = Worksheets("donnees").Range("B17").Value

A 10h32, tu écris celui là :
Code:

1 2 With Worksheets("Donnees") .Range("D" & NewLig).Value = Worksheets("fiche").Range("D6").Value
Attention, "Donnees" est différent de "donnees" ou de "Donnes"... La casse et l'orthographe doivent bien être les mêmes pour que VBA fasse le lien.

Bertrand

(et indentez votre code s'il vous plait.)
22/08/2012, 10h58
Daniela
Citation:
Envoyé par Bear the french

Bonjour Daniela,

J'indique une deuxième bizarrerie :

A 9h46, tu écris ce code :

Code:

.Range("V" & NewLig).Value = Worksheets("donnees").Range("B17").Value

A 10h32, tu écris celui là :

Code:

1 2 With Worksheets("Donnees") .Range("D" & NewLig).Value = Worksheets("fiche").Range("D6").Value

Attention, "Donnees" est différent de "donnees" ou de "Donnes"... La casse et l'orthographe doivent bien être les mêmes pour que VBA fasse le lien.

Bertrand

(et indentez votre code s'il vous plait.)
oui merci, le probleme est que j'essai des choises pour apprendre et quand je tape le code je peux faire des betises. en tout cas, meme avec l' orthographe correct ne marche pas.
22/08/2012, 10h59
Philippe Tulliez
Bonjour,

Citation:

Attention, "Donnees" est différent de "donnees" ou de "Donnes"... La casse et l'orthographe doivent bien être les mêmes pour que VBA fasse le lien.

Ce n'est pas tout à fait vrai. L'orthographe oui, la casse non.
C'est fou mais c'est transparent.
Code:

1 2 Worksheets("FICHE").Range("A1") = 5 Worksheets("FiChE").Range("A2") = 15
22/08/2012, 11h13
Bear the french

Bonjour Philippe,

C'est le cas pour d'autres langages de programmation, mais à priori VBA n'apporte pas d'importance à la casse. C'est étrange et c'est bon à savoir. Merci.

Bertrand
22/08/2012, 11h18
Philippe Tulliez

Bonjour,

Citation:

C'est le cas pour d'autres langages de programmation, mais à priori VBA n'apporte pas d'importance à la casse. C'est étrange et c'est bon à savoir. Merci.

C'est surtout lié à Windows. Même les répertoires et noms de fichiers ne sont pas sensibles à la casse.
Je travaille avec Linux où tu peux créer 2 dossiers portant le même nom mais de casse différente Test et TEST dans le même répertoire. Pour lui ce n'est pas la même chose.
Impossible de faire cela avec Windows

Citation:

Envoyé par Bear the french

Bonjour Philippe,

C'est le cas pour d'autres langages de programmation, mais à priori VBA n'apporte pas d'importance à la casse. C'est étrange et c'est bon à savoir. Merci.

Bertrand

je pense que c'est mieux d'ecrire toujours le meme nom ainsi de pas avoir de problemes :ccool:

mais pourquoi mon code ne marche pas?

Citation:

Envoyé par jpcheck

OK,
quelle est la valeur de Numlig ?
quelle est l'erreur exactement ?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Private Sub CommandButton1_Click() Dim NewLig As Long NewLig = .Cells(.Rows.Count, "A").End(xlUp).Row + 1 For i = 1 To Worksheets("Donnees").Range("A65536").End(xlUp).Row 'toutes les lignes donc If Worksheets("Donnees").Range("A" & i).Value = Worksheets("Fiche").Range("A6").Value And Worksheets("Donnees").Range("B" & i).Value = Worksheets("Fiche").Range("B6").Value Then Numlig = i End If Next i With Worksheets("Donnees") .Range("D" & NewLig).Value = Worksheets("Fiche").Range("D6").Value 'il faut placer le reste de ton code ici je pense :) End With End Sub

22/08/2012, 11h31
Philippe Tulliez

Bonjour,
Dans ce post, il y a une question ?
22/08/2012, 11h36
Daniela

Citation:

Envoyé par corona

Bonjour,
Dans ce post, il y a une question ?

le code ne marche pas, il y a un erreur et j'arrive pas a comprendre pourquoi
22/08/2012, 12h52
Philippe Tulliez

Bonjour,
Si tu précisais ce qui ne marche pas, quel message d'erreur tu reçois et à quelle ligne.
Une explication succincte de ce que tu souhaites réaliser.
Parce-que j'avoue que ton premier post

Citation:

je voudrais savoir si avec excel et il possible de inserer des valeurs tapés dans les cellules c3 et d3 dans la feuille 3 dans la feuille 2 dans les colonnes d et e mais à la ligne où le nom et le prenom sont affichés dans la feuille 3 dans les cellules b3 et a3.

Un texte écrit avec une ligne discontinue, sans ponctuation, n'est pas très clair pour moi.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub CommandButton1_Click()
 
Dim NewLig As Long
NewLig = .Cells(.Rows.Count, "A").End(xlUp).Row + 1

For i = 1 To Worksheets("Donnees").Range("A65536").End(xlUp).Row
'toutes les lignes donc
If Worksheets("Donnees").Range("A" & i).Value = Worksheets("Fiche").Range("A6").Value And Worksheets("Donnees").Range("B" & i).Value = Worksheets("Fiche").Range("B6").Value Then
Numlig = i
End If
Next i
With Worksheets("Donnees")
    .Range("D" & NewLig).Value = Worksheets("Fiche").Range("D6").Value

End With

End Sub

il y a un erreur où j'ai souligné le code. il me dit qu'il y a erreur de compilation...

22/08/2012, 13h42
Philippe Tulliez

Ajouté code
Bonjour,
Et bien il manque l'objet qui précède le point

Code:

NewLig = .Cells(.Rows.Count, "A").End(xlUp).Row + 1

Par exemple

Code:

NewLig = WorkSheets("NomFeuille").Cells(.Rows.Count, "A").End(xlUp).Row + 1

Ou encore
Code:

1 2 3 With WorkSheets("NomFeuille") NewLig = .Cells(.Rows.Count, "A").End(xlUp).Row + 1 End With

j'ai vu que j'ai fait un erreur. mais le code ne marche pas, il y a toujours le meme erreur.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub CommandButton1_Click()
 
Dim NewLig As Long
NewLig = Worksheets("Donnees").Cells(.Rows.Count, "D").End(xlUp).Row + 1
 
For i = 1 To Worksheets("Donnees").Range("A65536").End(xlUp).Row
'toutes les lignes donc
If Worksheets("Donnees").Range("A" & i).Value = Worksheets("Fiche").Range("A6").Value And Worksheets("Donnees").Range("B" & i).Value = Worksheets("Fiche").Range("B6").Value Then
Numlig = i
End If
Next i
 
With Worksheets("Donnees")
.Cells(.Rows.Count, "D").End(xlUp).Row 1
End With
 
End Sub

22/08/2012, 15h15
Philippe Tulliez

Bonjour,
Je t'ai demander de donner un numéro d'erreur et à quelle ligne.
Tu réponds par une ligne de code mise en couleur.
Je te donne la solution et tu réponds par

Citation:

j'ai vu que j'ai fait un erreur. mais le code ne marche pas, il y a toujours le meme erreur.

Pour ma part, je renonce tant que tu ne donnes pas clairement un n° d'erreur et à quelle ligne.

ok maintentant il s'affiche l'erreur et me souligne la partie du code suivante:

Erreur d'exécution '438':
Propriété ou méthode non gérée par cet objet

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub CommandButton1_Click()
 
Dim NewLig As Long
NewLig = Worksheets("Fiche").Cells(Rows.Count, "D").End(xlUp).Row + 1

For i = 1 To Worksheets("Donnees").Range("A65536").End(xlUp).Row
'toutes les lignes donc
If Worksheets("Donnees").Range("A" & i).Value = Worksheets("Fiche").Range("A6").Value And Worksheets("Donnees").Range("B" & i).Value = Worksheets("Fiche").Range("B6").Value Then
NewLig = i
End If
Next i

With Worksheets("Donnees")
.Cells(.Rows.Count, "D").End(xlUp).Row 1
End With

End Sub

22/08/2012, 15h43
SfJ5Rpw8

Bonjour,
Et elle est censée faire quoi ta ligne 14 ?
22/08/2012, 15h56
Daniela

Elle doit permettre d'inserer la valeur dans la feuille donnees. c'est que je voudrais faire:

insert into Donnees dans la colonne D, la valuer tapee dans la cellule D6 de la feuille Fiche

where Fiche.A6 = Donnees.A and Fiche.B6 = Donnees.B

mais je sais pas comment on peut le faire en vba

Citation:

Envoyé par bbil

Bonjour,
Et elle est censée faire quoi ta ligne 14 ?

Je suis arrivée a ressoudre le probleme.

voici le code
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub CommandButton1_Click() Dim ac As Range For Each ac In [donnees!a1].CurrentRegion.Resize(columnsize:=1) If ac = [fiche!a6] And ac.Offset(0, 1) = [fiche!b6] Then Sheets("donnees").Cells(ac.Row, 4) = [fiche!d6] End If Next End Sub
par contre, comment je fais pour inserée cette partie ?

Code:

Sheets("donnees").Cells(ac.Row, 5) = [fiche!f6]

merci

Fuseau horaire GMT +2. Il est actuellement 22h07.