ajoute dans une macro

[bpol]

bonjour les exceleurs,

voici une macro que j'aimerais modifier elle parle de temps chronométré
'Private Sub cmdEnregistrer_Click()
Dim lig As Long
Dim choixLig As Long
Dim col As Long
Dim choixCol As Long

' Trouver la ligne
choixLig = 0

For lig = 10 To 210
If Range("E10") = 0 Then choixLig = 10: Exit For

If Range("E" & lig) = Range("F1") Then choixLig = lig: Exit For

If Range("E" & lig) = 0 And Range("F6") > 1 Then
lig = Range("E65536").End(xlUp).Row + 1
Cells(lig, 5) = Range("F1")
choixLig = lig: Exit For
End If
Next lig

Cells(choixLig, 5) = Range("F1")

' If choixLig = 0 Then
' MsgBox "L'enregistrement n'est pas possible", vbCritical + vbOKOnly, "Erreur"
' Exit Sub
' End If

' Trouver la colonne
choixCol = 0
For col = 6 To 9
If Cells(choixLig, col) = 0 Then
choixCol = col
Exit For
End If
Next col

If choixCol = 0 Then
MsgBox "L'enregistrement n'est pas possible", vbCritical + vbOKOnly, "Erreur"
Exit Sub
End If

' Afficher le résultat
Cells(choixLig, choixCol).Value = Range("H3").Value

j'aimerais ajouter ceci

if range ("H2") = range ("H1")
' Afficher le résultat
Cells(choixLig, choixCol).Value = neutralisée ( ceci est un texte)


j'espère etre assz clair car je ne peux envoyer le fichier il est trop lourd

Merci
BPOL

 

[ledzepfred]

Re : ajoute dans une macro

bonjour,

non tu n'es pas très clair😕 mais c'est pas grave

joins ton fichier grâce à ce lien: Accueil de Cjoint.com

je regarderai ce que je peux faire

a+

 

[bpol]

Re : ajoute dans une macro

voilà je viens de l'envoyer, il porte le nom prog2mmss_ok


merci

 

[ledzepfred]

Re : ajoute dans une macro

moi non plus j'ai pas été clair!!!

sur le site cjoint cliques sur parcourir pour ajouter ton fichier puis clique sur créer le lien cjoint, tu arrives sur une autre fenêtre dans lequel tu as le nom du lien créé, c'est ce lien qu'il faut mettre dans ton prochain post pour qu'on puisse visualiser ton fichier

a+

 

[bpol]

Re : ajoute dans une macro

oki viens de comprendre voici le lien

http://cjoint.com/?kEnbMAGdfG

merci

Bpol

 

[Compte Supprimé 979]

Re : ajoute dans une macro

Bonjour à vous,

Dis donc Bpol, il faut tout que l'on te mache 😎

j'aimerais ajouter ceci

if range ("H2") = range ("H1")
' Afficher le résultat
Cells(choixLig, choixCol).Value = neutralisée ( ceci est un texte)

Plus haut tu as

If Range("E" & lig) = 0 And Range("F6") > 1 Then
....
End If

Tu ne sais par ajouter le code tout seul !?

Si tu veux progresser il faut savoir faire des efforts de compréhension !

If range("H2") = range("H1") Then
' Afficher le résultat
Cells(choixLig, choixCol).Value = "neutralisée"
End If

Ou alors j'ai rien compris à ta demande ?

 

[bpol]

Re : ajoute dans une macro

merci du conseil bruno
mais si j'incorpore ce que je veux la macro ne fonctionne plus

je vais faire diverses essais

A+