requete insert et where avec vba

**Daniela** · 22/08/2012, 08h52

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.

**Jean-Philippe André** · 22/08/2012, 09h40

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 ?

**Daniela** · 22/08/2012, 09h46

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

Code :

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

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

**Jean-Philippe André** · 22/08/2012, 10h04

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

Tu peux passer par une boucle For du style

Code :

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

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

**Daniela** · 22/08/2012, 10h17

je fais ça mais ne marche pas

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
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

**Jean-Philippe André** · 22/08/2012, 10h24

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

essaie avec

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
 
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

**Bear the french** · 22/08/2012, 10h25

Envoyé par Daniela

je fais ça mais ne marche pas

Code :

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

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

**Daniela** · 22/08/2012, 10h32

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 :

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
 
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 :

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
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

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

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

**Bear the french** · 22/08/2012, 10h47

Bonjour Daniela,

J'indique une deuxième bizarrerie :

A 9h46, tu écris ce code :

Code :

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

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

A 10h32, tu écris celui là :

Code :

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

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.)

**Daniela** · 22/08/2012, 10h58

Envoyé par Bear the french

Bonjour Daniela,

J'indique une deuxième bizarrerie :

A 9h46, tu écris ce code :

Code :

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

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

A 10h32, tu écris celui là :

Code :

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

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.

**Philippe Tulliez** · 22/08/2012, 10h59

Bonjour,

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 :

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

1
2
 Worksheets("FICHE").Range("A1") = 5
 Worksheets("FiChE").Range("A2") = 15

**Bear the french** · 22/08/2012, 11h13

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

**Philippe Tulliez** · 22/08/2012, 11h18

Bonjour,

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

**Daniela** · 22/08/2012, 11h27

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

mais pourquoi mon code ne marche pas?

Envoyé par jpcheck

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

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
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

**Philippe Tulliez** · 22/08/2012, 11h31

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

**Daniela** · 22/08/2012, 11h36

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

**Philippe Tulliez** · 22/08/2012, 12h52

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

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.

**Daniela** · 22/08/2012, 13h10

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
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...

**Philippe Tulliez** · 22/08/2012, 13h42

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

Code :

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

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

Par exemple

Code :

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

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

Ou encore

Code :

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

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

requete insert et where avec vba

Macros et VBA Excel

Discussions similaires

Partager

Partager