Discussion :

[Thomas69]

bonjour

j'ai un probleme de programation que je n'arrive pas a faire tous seul

je voudrais en cliquant sur un bouton remplacer dans la colonne E a partir d'un numero de ligne que j'obtient de la celule active en k par exemple

remplacer les 6 chiffres a la suite


Exemple

dans la colonne E j'ai 6 fois 1 a partir de la ligne 32
quand ma cellule active est sur la colone k et ligne 32 et que je clique sur le bouton
je remplace les six 1 par des 2



si vous pouviez me donner un coup de main je vous en remercie d'avance

[jfontaine]

Essaic ce code

A mettre dans le click de ton bouton

Code :

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

1
2
3
4
5
6
7
8
9
 
If ActiveCell.Column = 11 Then
 
    Range("E" & ActiveCell.Row & ":E" & Range("E1").End(xlDown).Row).Select
    Selection.Replace What:="1", Replacement:="2", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
 
End If

[Gorfael]

bonjour

j'ai un probleme de programation que je n'arrive pas a faire tous seul

je voudrais en cliquant sur un bouton remplacer dans la colonne E a partir d'un numero de ligne que j'obtient de la celule active en k par exemple

remplacer les 6 chiffres a la suite


Exemple

dans la colonne E j'ai 6 fois 1 a partir de la ligne 32
quand ma cellule active est sur la colone k et ligne 32 et que je clique sur le bouton
je remplace les six 1 par des 2



si vous pouviez me donner un coup de main je vous en remercie d'avance

Salut
Pas tout compris

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub test()
Dim Lig As Long
Dim X As Integer
If Selection.Column = Columns("K").Column Then
    Lig = Selection.Row
    For X = 0 To 5
        If Range("E" & Lig).Offset(X, 0) <> 1 Then Exit Sub
    Next X
    For X = 0 To 5
        Range("E" & Lig).Offset(X, 0) = 2
    Next X
End If
End Sub

Si la cellule en haut à gauche de la sélection est sur la colonne K, si les 6 cellules de la colonne E à partir de la première ligne de la sélection contiennent des 1, les remplacer par des 2

En espèrant que ça réponde à la question
A+

[Thomas69]

c'est le genre de programme mais le bemol

c'est que si je suis a la ligne 32 tous les chiffres 1 avant la ligne 32 sont remplacé alors que je voudrait bien l'inverse


mais surtout c'est de controler la copie c'est a dire que de remplacer 5 fois 1 et non tous les 1



j'ai essayer ca

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub bijour()
If ActiveCell.Column = 11 Then
 
 i = 2
    Range("E" & ActiveCell.Row & ":E" & Range("E1").End(xlDown).Row + i).Select
    Selection.Replace What:="1", Replacement:="2", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
 
End If
 
End Sub

mais avec ce code je remplace tous les 1 sauf les 2 er

si tu pouvais me donner un coup de pouce supplémentaire
merci

[Thomas69]

ben je te remercie Gorfael c'est justement ce que je cherchais a faire

merci pour tous a vous deux

[Thomas69]

j'ai voulus amiliorer le code pour effacer les 5 cases suivantes mais ca ne m'efface qu'une case si on pouvait m'expliquer

Merci

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
Sub test()
Dim Lig As Long
Dim X As Integer
If Selection.Column = Columns("L").Column Then
    Lig = Selection.Row
    For X = 0 To 4
        If Range("E" & Lig).Offset(X, 0) <> 1 Then Exit Sub
    Next X
    For X = 0 To 4
        Range("E" & Lig).Offset(X, 0) = 2 And Range("E" & Lig + 5).ClearContents
    Next X
 
 
End If
 
 
End Sub

j'ai trouver la solution en recopiant plusieurs fois And Range("E" & Lig + 5).ClearContents


si vous avez plus simple je suis prenneur au pire je me contente de ca

[Gorfael]

Salut

Code :

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

1
2
3
4
5
6
7
8
For X = 0 To 4
' Pour x=0 à 4
Range("E" & Lig).Offset(X, 0) = 2 And Range("E" & Lig + 5).ClearContents
' Je sais même pas comment Excel l'interprête le seul code que je comprennes est :
Range("E" & Lig + 5).ClearContents
' effacer le contenu de la cellule colonne E, ligne Lig+5 (qui est fait 5 fois)
' je vois pas à quoi doit servir le "=2"
Next X

Je crois avoir compris mais....

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
 
If Selection.Column = Columns("L").Column Then
Lig = Selection.Row
For X = 0 To 4
If Range("E" & Lig).Offset(X, 0) <> 1 Then Exit Sub
Next X
'on vérifie la présence des 1, sinon on sort
For X = 0 To 4
Range("E" & Lig).Offset(X, 0) = 2 
'On affecte 2 à la colonne E
Range("E" & Lig + 5).offset(x,0).ClearContents
'ou
'Range("E" & Lig).Offset(X+5, 0).ClearContents
'On efface les 5 lignes suivantes
Next X
End If

J'espère que c'est bien ça ?
Dans VBA, il vaut mieux éviter d'effectuer plusieurs actions ensemble. ça rend le code moins lisible, et c'est rarement admis par le compilateur

AND, OR, etc. sont des opérateur logiques : ce ne sont pas des fonctions du code. Tu ne peux par ecrire
Faire code1 AND code2
Faire code1 Or code2
Ils ne servent qu'à donner une réponse logique (0 ou -1 en VBA)
Pour le ET, il suffit de faire 2 lignes
Code1
Code2

Pour le OU, il faut un test qui détermniera quelle opération sera exécuter : Excel ne décide jamais rien, il suit les instructions qu'on lui donne. Il ne fait pas ce qu'on veut, seulement ce qu'on lui dit de faire
A+

[Thomas69]

Range("E" & Lig + 5).offset(x,0).ClearContents


merci grace a toi je viens de comprendre mon erreur
et tu as raison plus le programme est jolie plus c'est lisible

[Gorfael]

Range("E" & Lig + 5).offset(x,0).ClearContents


merci grace a toi je viens de comprendre mon erreur
et tu as raison plus le programme est jolie plus c'est lisible

Salut
C'est pas une question d'esthétisme. Mais si dans 6 mois tu dois t'y replonger pour faire des modifs, avec une urgence par-dessus, plus le code est clair, moins tu fais d'erreurs.
Et sur une macro de 20 lignes, c'est facile, mais quand ça implique une dizaine de macros, sur plus de 500 lignes de codes....
A+