Autres adapter le code à Excel

  • Initiateur de la discussion Initiateur de la discussion tarouf
  • Date de début Date de début
  • Mots-clés Mots-clés
    vba

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

tarouf

XLDnaute Nouveau
Bonjour, tout le monde et bonne année.
Est-il possible d'adapter ce code à une feuille Excel. Merci

<html>
<body>
<form method="post">
<div align="center">
<div>
<table border="0" width="35%">
<tbody>
<tr>
<td width="20%"><span style="">Nm</span>1
<select id="bloc" size="1" name="T1">
</select> </td>
<td width="20%"><span style="">Nm</span>2
<select id="bloc" size="1" name="T2">
</select> </td>
<td width="20%"><span style="">Nm</span>3
<select id="bloc" size="1" name="T3">
</select> </td>
<td width="20%"><span style="">Nm</span>4
<select id="bloc" size="1" name="T4">
</select> </td>
<td width="20%" colspan="2">
<div align="center">
<div>
<p>
<input style="TEXT-TRANSFORM: uppercase; COLOR: #ff0000; FONT-WEIGHT: bold; TEXT-DECORATION: blink" value="GOO" type="submit" name="B1" /></p></div></div></td>
</tr>
<%
Server.ScriptTimeOut = 1500
if request.form("B1") <> "" Then
count = 0
bloc1=request.form("T1")
if bloc1 <> "" Then count = count + 1
bloc2=request.form("T2")
if bloc2 <> "" Then count = count + 1
bloc3=request.form("T3")
if bloc3 <> "" Then count = count + 1
bloc4=request.form("T4")
if bloc4 <> "" Then count = count + 1
bloc5=request.form("T5")
if bloc5 <> "" Then count = count + 1
bloc6=request.form("T6")
if bloc6 <> "" Then count = count + 1

Set RS = Server.CreateObject("ADODB.Recordset")

sql = "Select * From Feuil1"
rs.Open sql, conn, 3, 3
rs.movefirst
do while not rs.eof
test = 0
if rs(1) <> "*" Then
for j = 1 to 5
if j = 1 Then
bloc = bloc1
elseif j = 2 Then
bloc = bloc2
elseif j = 3 Then
bloc = bloc3
elseif j = 4 Then
bloc = bloc4
elseif j = 5 Then
bloc = bloc5
end if
for i = 1 to 5
if rs(i) = bloc then
test = test + 1
end if
next
next
if (test = count) and count <> 0 then
m = m+ 1
rs(1) = "*"
rs(2) = "*"
rs(3) = "*"
rs(4) = "*"
rs(5) = "*"
rs.update
end if
end if
rs.movenext
loop
End If
response.write m
%>
</tbody>
</table></div></div>
</form>
</body>
</html>
 
Bonjour Laurent78 et merci pour la remarque.
J'ai une feuille Excel composée de 5 colonnes et environ 1000 lignes qui sont différent Ex:

A B C D E
1 7 2 8 9
1 2 3 4 5*
1 5 3
9 2*
1 2 8 4 5**
1 7 3 2 5*
1 2 3 9 5*
1
8 3 4 5**
1
5 8 9 6
1 5 8 4 3**
1 4 8 7 5**
1 2 7 6 8

le but d'aller cherche ex: 1 2 3 5* et effacer la ligne entière
ex: 1 4 5 8** et effacer la ligne entière
ex:..............
ex:.............
J'espère que cette exemple montre un peut plus clair le travail de ce code HTML.
Merci d'avance pour une éventuel aide.
 
Bonsoir le fil

tarouf
Pourquoi doublonner ta question?
Où d'ailleurs tu as eu une réponse, non ?
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
216
Réponses
5
Affichages
379
Réponses
1
Affichages
452
Retour