Discussion :

[Daniela]

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

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]

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

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]

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

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]

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