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

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

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+